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ABSTRACT 


This  report  describes  the  LISP  system  implemented  at  BBN  on  the 
SDS  9**0  Computer.  This  LISP  is  an  upward  compatible  extension  of 
LISP  1.5  for  the  IBM  7090,  with  a  number  of  new  features  which 
make  it  work  well  as  an  on-line  language.  These  new  features 
include  tracing,  and  conditional  breakpoints  in  functions  for 
debugging  and  a  sophisticated  LISP  oriented  editor.  The  BBN  9**0 
LISP  SYSTEM  has  a  large  memory  store  (approximately  50,000  free 
words)  utilizing  special  paging  techniques  for  a  drum  to  provide 
reasonable  computation  times.  The  system  includes  both  an 
interpreter,  a  fully  compatible  compiler,  and  an  assembly  language 
facility  for  inserting  machine  code  subroutines. 
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INTRODUCTION 

LISP  is  a  highly  sophisticated  list-processing  language  which  is 
being  used  extensively  in  artificial  intelligence  research.  This 
document  describes  the  BBN  9^0  LISP  system,  which  has  a  number  of 
unique  features  which  make  it  a  very  good  on-line  interactive  sys¬ 
tem  with  a  large  drum  memory.  Ideally,  a  LISP  system  would  have  a 
very  fast,  random-access  memory.  However,  magnetic  core  memory 
(the  only  large  scale  random-access  memory  available)  is  very  ex¬ 
pensive  relative  to  serial  memory  devices  such  as  magnetic  drums 
or  discs.  Since  average  access  time  to  a  word  on  a  drum  or  disc 
is  many  times  slower  than  access  to  a  word  in  a  core  memory,  using 
a  drum  as  a  simple  extension  of  core  memory  would  reduce  consider¬ 
ably  the  operating  speed  of  such  a  system.  We  have  developed  spec¬ 
ial  paging  techniques  which  allow  utilization  of  a  drum  for  stor¬ 
age  with  a  much  smaller  penalty  in  speed.  These  techniques  are 
described  in  detail  in  Bobrow  and  Murphy's  "Structure  of  LISP  Us¬ 
ing  Two-Level  Storage,"  (Comm.  ACM,  March  :967). 

Although  we  have  tried  to  be  as  clear  and  complete  as  possible, 
this  document  is  not  designed  to  be  an  introduction  to  LISP. 
Therefore,  some  parts  may  be  clear  only  to  people  who  have  had 
some  experience  with  other  LISP  systems.  A  good  introduction  to 
LISP  is  Clark  Weisman,  "LISP  1.5  Primer"  (Dickenson  Press  1967). 
Although  not  completely  accurate  with  respect  to  the  BBN  9^0  LISP 
system,  the  differences  are  small  enough  to  be  mastered  by  use  of 
this  manual  and  on-line  interaction.  Other  important  references, 
published  by  the  MIT  Press,  are  John  McCarthy,  LISP  1.5  Program¬ 
mer's  Manual  and  Berkeley  and  Bobrow  (editors),  The  Programming 
Language  LISP,  Its  Operation  and  Applications. 
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SECTION  II 


USING  THE  LISP  SUBSYSTEM  ON  THE  9^0 

In  order  to  use  LISP,  you  must  have  in  your  files  a  sysout  file 
of  tne  basic  system.  This  basic  LISP  system  file,  usually  called 
LISP,  contains  a  binary  image  of  LISP  after  it  has  been  initial¬ 
ized  and  loaded  with  the  library.  You  do  not  need  a  copy  of  the 
library  if  you  have  this  file. 

Call  LISP  by  typing  LIS ;  the  system  will  respond  P;  then  type 
when  LISP  finally  responds  READY,  and  types  you  are  talking  to 
the  LISP  supervisor,  usually  called  evalquote.  Then  type  the 
following: 

SYSIN  (LISP) 

After  typing  the  above,  the  system  will  find  and  load  the  basic 
system  binary  file  of  this  name  from  tape.  When  it  has  read  it 
in  successfully,  it  will  respond  with  a  T,  and  the  LISP  super¬ 
visor  will  again  type  indicating  that  it  is  listening  to  you 
again. 

When  typing  in  to  evalquote ,  typing  a  control-Q  will  clear  the 
input  line  buffer  erasing  the  entire  line  up  to  the  last  carriage 
return.  Typing  control-A  erases  the  last  character  typed  in, 
echoing  a  +  and  the  erased  character;  it  will  not  go  beyond  the 
last  carriage  return.  Pressing  the  RUBOUT  button  while  in  the 
middle  of  a  typein  to  the  LISP  executive,  evalquote ,  will  clear 
the  entire  read  buffer  of  everything  back  to  the  last  and 
LISP  will  again  type 
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The  LISP  read  program  counts  parentheses ,  and  echoes  a  carriage 
return  when  c.  1  left  and  right  parentheses  balance.  Left  and 
right  brackets,  "["  and  " ]" ,  are  super-parentheses.  A  right 
bracket  will  close  all  open  left  parentheses  up  to  the  last  open 
left  bracket;  if  there  is  no  open  left  bracket,  it  will  close  the 
entire  expression.  For  example: 

PRINT  ((THIS  IS  A  MSP  SYSTEM  FROM  BBN  (FOR  THE  9^0] 

will  print  the  expression  shown  with  enough  right  parentheses  to 
close  all  lists;  that  is,  the  ”]"  is  equivalent,  in  this  case,  to 
three  right  parentheses.  Unpaired  right  parentheses  are  read  as 
NIL. 

To  exit  from  LISP,  type: 

LOGOUT  () 

One  can  then  execute  any  system  commands,  except  those  which 
start  another  subsystem,  and  continue  LISP  using  the  system 
CONTINUE  command.  This  will  revive  the  LISP  system  exactly  as 
you  left  it,  except  that  all  open  files  will  be  closed,  and  you 
will  be  typing  to  evalquote ,  whether  or  not  you  executed  the 
logout  at  the  top  level. 
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SECTION  III 


DATA  TYPES  AND  THE  ORGANIZATION  OP  VIRTUAL  MEMORY 

LISP  operates  in  a  21-bit  address  space,  though  only  thac  portion 
currently  in  use  actually  exists  on  the  drum.  A  portion  of  the 
address  space  above  that  actually  allocated  for  structures  is 
used  for  representation  cf  small  integers,  as  described  below. 

All  data  storage  is  contained  within  this  virtual  memory, 
including  literal  atoms,  list  structure,  arrays  and  compiled  code, 
large  integers,  floating  point  numbers,  and  pushdown  list  storage. 
This  virtual  memory  is  divided  into  pages  of  256  words.  References 
to  the  virtual  storage  are  made  via  an  in-core  map  which  supplies 
the  address  of  the  required  page  if  it  is  in  core,  or  traps  to  a 
supervisory  routine  if  the  page  is  not  in  core.  This  drum  super¬ 
visory  routine  selects  an  in-core  page,  writes  it  back  on  the 
drum  if  it  nas  been  changed,  and  reads  the  required  page  from  the 
drum.  Closed  subroutine  references  to  an  in-core  word  through 
the  map  take  approximately  40  microseconds.  A  reference  to  a 
word  not  in  core,  which  must  be  obtained  from  the  drum,  takes  up 
to  33  milliseconds,  the  drum  maximum  access  time.  It  takes  twice 
as  long  if  a  page  must  be  written  out  on  the  drum  before  the 
referenced  page  can  be  read  in. 

Type  Determination  of  Pointers 

The  virtual  memory  is  divided  into  a  number  of  areas  as  shown  in 
Fig.  1.  As  can  be  seen  from  this  map  of  storage,  simple  arith¬ 
metic  on  the  address  of  a  pointer  will  determine  its  type.  We 
chose  to  allocate  storage  rather  than  provide  in-core  descrip¬ 
tors  of  storage  areas,  because  they  would  take  up  valuible  in-core 
space. 
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FIG.  1  MEMORY  ALLOCATION  IN  LISP 
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Literal  Atoms 


A  literal  atom  is  constructed  from  any  string  of  characters  not 
interpretab  1  r  •'.s  an  integer  or  a  floating  point  number.  When  a 
string  of  characters  representing  a  literal  atom  is  read  in,  a 
search  is  made  to  determine  if  an  atcm  with  the  same  print-name 
has  been  seen  before.  If  sc,  a  pointer  to  that  atom  is  used  for 
the  current  atom.  If  not,  a  new  atom  is  created.  Thus,  as  in  all 
LISP  systems,  a  literal  atom  has  a  unique  representation. 

Four  cells  (9^0  words)  are  associated  with  each  literal  atom. 

These  cells  contain  pointers  to  the  print-name  of  the  atom,  the 
function  which  it  identifies,  its  top  level  or  global  value,  and 
its  prcperty  list.  Since  pointers  to  atoms  occur  j.n  only  one 
part  of  the  address  space,  one  can  tell  from  a  pointer  (address) 
whether  or  not  it  is  pointing  to  a  literal  atom. 

Instead  of  having  the  four  cells  associated  with  each  atom  on  the 
same  page,  each  is  put  in  a  separate  space  in  a  position  compu¬ 
table  from  the  pointer  to  the  atom. 

Separating  value  cells  and  function  cells,  for  example,  is  useful 
because  most  users  will  not  use  the  same  name  for  a  global 
variable  as  they  will  for  a  function.  Therefore,  if  the  four 
cells  were  brought  in  whenever  any  one  wr.  asked  for,  it  is 
likely  that  the  other  three  cells  would  never  be  referenced.  Yet, 
they  use  up  room  in  core  which  could  be  used  for  other  storage. 
Similarly,  the  print-name  pointers  associated  with  atoms  are 
needed  during  input  and  output,  but  rarely  during  a  computation. 
Therefore,  during  computation  these  cells  are  never  in  core. 

Oar  °f  a  literal  a*c;r.  usually  contains  the  top  level  binding  of 
one  atom.  If  the  atom  has  not  yet  been  bound,  the  value  cell 
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contains  the  special  atom  NOBIND,  odr  of  the  atom  is  a  pointer 
to  the  atom  property  list,  initially  NIL.  The  PNAME  cell  contains 
a  pointer  to  a  packed  character  table  which  contains  the  print- 
name  of  the  atom.  The  function  cell  contains  NIL  until  a  function 
by  that  name  is  defined.  One  implication  not  immediately  obvious 
is  that  car[NIL]  *  NIL,  and  cdr[NIL]  ■  NIL.  These  latter  two 
values  are  a  significant  convenience  in  programming. 

Numerical  Atoms 


Integers 

In  LISP,  most  numerical  atoms  (numbers)  do  no-.,  have  a  unique  re¬ 
presentation;  that  is,  a  number  of  different  pointers  may  reference 
numbers  with  the  same  value.  This  implies  that  for  comparison  of 
numbers,  or  for  arithmetic  operations,  the  values  of  the  numbers 
muse  be  obtained.  The  values  of  floating  point  n  imbers  and  large 
integers  are  stored  in  a  "full  word"  space.  Pointers  to  these 
values  are  used  in  list  structure. 

However,  we  utilize  the  fact  that  not  all  addresses  in  the  virtual 
address  space  of  the  drum  can  legitimately  appear  as  pointers  in 
list  structure.  These  "illegal"  pointers  are  therefore  used  in 
the  context  of  list  structure  to  represent  "small"  integers 
directly,  offset  by  a  constant. 

The  input  format  for  an  integer  is  any  string  of  digits,  option¬ 
ally  preceded  by  a  "+"  or  Integers  must  have  magnitude  less 

2  3 

than  2  .  "Small"  Integers  are  those  of  magnitude  below  approxi- 

18 

mately  2  (an  assembly  parameter).  A  string  of  digits  followed 
by  a  "Q"  will  be  interpreted  as  an  octal  number. 
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Floating  Point  Number3 


Floating  point  numbers  and  operations  are  available  in  BBN  LISP. 
They  are  stored  in  two  contiguous  24  bit  words  in  standard  940 
format,  in  full  word  space.  When  creating  an  atom  with  read, 
ratom  or  pack.  LISP  will  recognize  as  a  floating  point  number  a 
string  of  digits  containing  a  decimal  point.  The  letter  "E" 
(exponent  of  1C;  i.e.  yyExx«yy  *  10  )  will  also  serve  to  deeig- 

nate  a  floating  point  number  if  preceded  and  followed  by  one  or 
more  digits.  The  following  are  legal  floating  point  input  strings. 

5.  5.0  5E0  5E-3  5.2E+6  .3 

The  floating  point/string  conversion,  and  the  floating  point 
arithmetic  are  performed  by  the  POP's  and  BRS's  available  in  the 
940  system.  Additional  information  concerning  conversion  and 
precision  is  available  from  the  system  documentation  of  these 
routines. 

The  atom  printing  routine  (used  by  prlnl.  prln2.  prln3.  unpack) 
will  call  the  system  conversion  routine  when  It  encounters  a 
floating  point  datum.  The  output  format  Is  controlled  by  the 
function  fltfrntCn]  described  later. 
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Arrays  in  BBN  LISP  have  the  following  format. 


The  HEADER  CLOCK  is  four  cells  long  and  contains: 


Cell:  0  Length  of  entire  array. 

1  Relative  address  of  first  word  of  protected 
pointers. 

2  Relative  address  of  first  word  of  relocation 
information. 

3  0  if  an  integer  or  symbolic  array. 

1  if  a  floating  point  array. 

Used  as  temporary  storage  in  compllled  code . 
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An  array  may  contain  both  pointer  and  non-pointer  data,  separated 
as  shown.  Pointer  data  Is  assumed  to  be  one  of  the  standard  LISP 
types,  and  the  pointer  data  cells  In  all  arrays  are  used  as  base 
cells  for  tracing  during  garbage  collection.  The  non-pointer 
data,  beginning  In  the  fifth  cell  of  the  array.  Is  of  unrestricted 
type,  and  will  not  be  used  as  trace  pointers  during  garbage 
collection. 

Relocation  Information  contains  the  relative  addresses  of  cells 
In  the  array  which  are  to  be  relocated  when  the  array  Is  used  as 
a  compiled  function,  and  Is  placed  In  core  memory. 

Examples : 

1.  Compiled  code. 

a.  Machine  instructions  and  unboxed  numeric 
literals  are  In  the  non-pointer  area. 

b.  Other  literals  and  variable  name  pointers  are 
in  the  pointer  area. 

c.  Relocation  information  area  addresses  all 
machine  instructions  whose  address  is  within 
the  same  program,  e.g.,  BRANCH  instructions. 

2.  Array  of  lists. 

All  data  would  be  in  the  pointer  area;  the  other 
are?.s  would  be  of  length  0. 

3.  Array  of  unboxed  numbers. 

All*  data  would  be  in  the  non-pointer  area;  tne 
other  areas  would  be  of  length  0. 
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List  Structure 


List  Structure  is  created  in  list  space  as  shown  in  the  memory 
map.  Lists  can  contain  pointers  to  all  data  types.  As  can  be 
seen  from  the  map,  list  space  and  array  space  grow  toward  each 
other.  The  total  space  available  is  an  assembly  parameter. 
Currently  the  space  available  is  96K  (K-1024)  SDS  940  24  bit 
words,  which  if  used  all  for  list  storage  would  provide  48K  words 
of  free  storage. 
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SECTION  IV 


FUNCTION  TYPES 

There  are  basically  eight  function  types  in  the  BBN  LISP  System. 
These  eight  types  are  characterized  by  three  dichotomies.  A 
function  may  independently  have: 

1.  its  arguments  evaluated  or  unevaluated, 

2.  a  fixed  number  of  arguments  or  an  indefinite  number  of 
arguments . 

3.  be  defined  by  a  LISP  expression,  or  by  machine  code 
(which  may  be  permanent  system  code,  or  compiled 
machine  code). 

Expressions  used  to  define  functions  must  start  with  either 
LAMBDA,  or  NLAMBDA;  indicating  that  the  arguments  of  this  func¬ 
tion  are  to  be  evaluated,  or  not  evaluated,  respectively. 

Following  the  LAMBDA  or  NLAMBDA  may  be  any  atom  (except  NIL)  or 
a  list  of  atoms  (possibly  empty).  If  there  Is  a  list  of  atoms, 
each  atom  in  the  list  Is  the  r.ame  of  an  argument  for  the  function 
defined  by  the  expression.  Arguments  for  the  function  will  be 
evaluated  or  unevaluated,  as  dictated  by  LAMBDA  or  NLAMBDA,  and 
\ired  with  these  argument  names.  If  an  atom  follows  the  LAMBDA 
or  NLAMBDA,  this  function  has  an  indefinite  number  of  arguments. 

If  it  is  an  NLAMBDA  expression,  then  the  atom  is  paired  to  the 
list  of  arguments  (unevaluated)  of  the  function;  that  is,  to  cdr 
of  the  form  in  which  this  function  name  was  car. 

If  a  LAMBDA  is  f  lowed  by  an  atom,  each  of  its  arguments,  n,  will 
be  evaluated  in  urn  and  placed  on  the  parameter  push  down  list. 
The  atom  following  the  LAMBDA  Is  bound  to  the  number  of  arguments 
which  have  been  evaluated.  A  built-in  function  arg[m]  returns 
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the  value  of  the  mth  argument  of  this  function  from  the  push 
down  list.  For  m>n  or  m*o,  it  is  undefined. 

Functions  defined  by  expressions  can  be  compiled  by  the  LISP  com¬ 
piler,  as  described  in  the  section  on  the  compiler  and  lap .  They 
may  also  be  written  directly  in  machine  code  and  the  LAP  assembly 
language  if  the  lap  conventions  are  followed  to  allow  linkage  to 
LISP  functions.  Functions  created  both  by  the  compiler  and  lap 
are  referred  to  as  compiled  functions.  Built-in  system  coded 
functions  are  called  subroutines.  To  determine  the  type  of  any 
function  fn,  you  can  use  the  function  fntyp[fn].  The  value  of 
fntyp  is  one  of  the  following  12  types: 


EXFR 

CEXPR 

SUBR 

EXPR* 

CEXPR* 

SUBR* 

FEXPR 

CFEXPR 

FSUBR 

FEXPR* 

CFEXPR* 

FSUBR* 

The  types  in  the  first  column  are  all  defined  by  expressions. 

The  *  suffix  indicates  an  indefinite  number  of  arguments  (i.e.  an 
atom  following  the  LAMBDA  or  NLAMBDA).  Functions  of  types  in  the 
first  two  rows  evaluate  their  arguments.  The  types  in  the  second 
column  are  compiled  versions  of  the  types  in  the  first  column,  as 
indicated  by  the  prefix  C.  In  the  third  column  are  the  parallel 
types  for  built-in  subroutines.  The  prefix  F  again  indicates  no 
evaluation  of  arguments.  Thus,  for  example,  a  CFEXPR*  is  a 
compiled  form  of  an  NLAMBDA  expression  with  an  atom  following 
the  NLAMBDA. 
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A  standard  feature  of  the  BBN  LISP  system  is  that  no  error 
occurs  if  a  function  is  called  with  too  many  or  too  few  arguments. 
If  a  function  is  called  with  too  many  arguments,  the  extra  argu¬ 
ments  are  evaluated  but  ignored.  If  a  function  is  called  with 
too  few  arguments,  the  unsupplied  ones  will  be  delivered  as  NIL. 
This  applies  to  both  built-in  and  defined  functions. 

There  is  a  function  progn  of  an  arbitrary  number  of  arguments 
which  evaluates  the  arguments  in  order  and  returns  the  value  of 
the  last  (i.e.,  It  resembles  and  is  an  extension  of  prog2) . 

The  conditional  expression  has  been  generalized  so  that  Instead 
of  doublets  it  accepts  n+l-tuplets  which  will  be  interpreted  in 
the  following  manner: 

(COND 

(PI  Ell  E12  E13) 

( P2  E21  E22 ) 

(P3) 

(PH  EHl) ) 

will  be  taken  as  equivalent  to  (in  LISP  1.5): 

(COND 

(PI  (PROGN  Ell  E12  El?*' 

(P2  (PROGN  E21  E22 ) ) 

(P3  P3) 

(PH  EHl) 

(T  NIL)) 

This  is  not  exactly  true,  but  only  because  P3  is  not  evaluated 
a  second  time,  if  the  value  is  needed  in  the  third  item  in  the 
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second  conditional  expression.  Thus,  a  list  in  a  cpnd  with  only 
a  predicate  and  no  following  expressions  causes  the  value  of  the 
predicate  itself  t*.  be  returned.  Note  also  that  NIL  is  returned 
if  all  the  predicates  have  value  NIL.  No  error  is  invoked. 

LAMBDA  and  NLAMBDA  expressions  also  have  implicit  progn*s ;  thus 
for  example 

ft 

(LAMBDA  (VI  V2)  (PI  VI)  (F2  V2)  NIL) 
is  interpreted  as 

(LAMBDA  (VI  V2 )  (PROGN  (PI  VI)  (F2  V2)  NIL)) 

The  value  of  the  last  expression  following  LAMBDA  (or  NLAMBDA) 
is  returned  as  the  value  of  the  expression.  In  this  example, 
the  function  would  always  return  NIL. 
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SECTION  V 


PRIMITIVE  FUNCTIONS  AND  PREDICATES 

Primitive  Functions 


car[x]  car  gives  the  first  element  of  a 

list  x,  or  the  left  element  of  a 
dotted  pair  x*  Nominally  unde¬ 
fined  for  literal  atoms,  it 
usually  gives  the  top  level 
binding  (value)  of  a  literal 
atom  x.  For  the  usually  undefined 
case  of  a  number,  its  value  is 
the  number  itself. 


cdr[x]  cdr  gives  the  tail  of  a  list  (all 

but  tne  first  element).  This  is 
also  the  right  member  of  a  dotted 
pair.  If  x  is  a  literal  atom, 
cdr[x]  gives  the  property  list 
of  x-  Property  lists  are  usually 
NIL  unless  modified  by  the  user. 

If  x  is  a  number,  cdr  returns  NIL. 


caar[x]  «  car[car[x]j 
cadr[x]  *  car(.cdr[x]] 
cddddr[x]  * 

[cdric.dr[cdr[cdr[x])  ]] 


All  30  combinations  of  nested 
cars  and  odrs  up  to  ^  deep  are 
included  in  the  system.  Levels  1, 
2  and  3  are  subroutines;  4  is 
compiled.  All  are  compiled  open 
by  the  compiler. 
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cons[x;y]  cons  constructs  a  dotted  pair  of 

x  and  If  £  is  a  list,  x  be- 
comes  the  first  element  of  that 
list.  To  minimize  drum  accesses 
the  following  algorithm  is  used 
for  finding  a  page  on  which  to 
put  the  constructed  LISP  word. 

cons[x,y]  is  placed 

1)  on  the  page  with  y  if  y  is  a  list  and  there  is  room; 
otherwise 

2)  on  the  page  with  x  if  X  is  a  list  and  there  is  room; 
otherwise 

3)  on  the  same  page  as  the  last  cons  if  there  is  room; 
otherwise 

4)  on  a  page  in  core  if  one  is  available  with  a  specified 
minimum  of  storage;  otherwise 

5/  on  any  page  with  a  specified  minimum  of  storage. 

The  specified  minimum  is  presently  20  LISP  words  in 
both  cases. 

The  user  may  effect  the  operation  of  cons  with  the  following 
function: 

conspage[x]  causes  the  page  on  which  x  re¬ 

sides  to  be  used  for  alternative 
3  above  instead  of  the  result  of 
the  previous  cors.  If  x  Is  an 
atom,  alternative  ^  or  5  will 
be  tc.ken. 
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consc.--nt[]  Returns  the  number  of  conses 

since  LISP  started  up. 

rplacd[x;y]  This  very  dangerous  SUBR  places 

in  the  decrement  of  the  cell 
pointed  to  by  x  the  pointer  y_. 

Thus  it  changes  the  internal  list 
st.-ucture  physically,  as  opposed 
to  cons  which  creates  a  new  list 
element.  This  is  the  only  way 
to  get  a  circular  list  inside  of 
LISP;  that  is  by  placing  a 
pointer  to  the  beginning  of  a 
list  in  a  spot  at  the  end  of  the 
list.  Using  this  function  care¬ 
lessly  is  one  of  the  few  ways  to 
realxy  clobber  the  system.  The 
value  of  rplacd  is  x. 

rplaca[x;y]  This  SUBR  is  a 1 mi  .  to  rplacd, 

but  it  replaces  the  address 
pointer  of  x  with  £.  The  oame 
caveats  which  applied  to  using 
rplacd  apply  to  rplaca .  The 
value  of  rplaca  is  x*  Rplaca 
and  rplacd  of  NIL  are  illegal. 

quote[x]  This  is  a  function  that  prevents 

its  argument  from  being  evaluated. 
Its  value  is  x  itself. 


-18- 


cond[x] 


The  argument  for  cond  is  a  list. 
Each  element  of  the  list  is  it¬ 


self  a  list  containing  n  >  1 
items:  the  first  is  an  expression 
whose  value  may  be  false  or  true 
(chat  is  NIL,  or  anything  which 
is  not  NIL);  the  rest  may  be  any 
expressions.  This  ir.  the  condi¬ 
tional  expression  in  the  LISP 
system.  The  meaning  of  it  is: 
if  the  first  element  of  the  first 
list  is  true  (not  NIL) ,  then  the 
following  expressions  are  evalu¬ 
ated.  The  value  of  the  condi¬ 
tional  is  the  value  of  the  last 
expression  in  this  sublist.  If 
there  is  only  one  element  In  the 
n-tuplet,  then  the  value  of  the 
conditional  is  the  value  of  this 
element  if  It  is  not  NIL. 

This  value  of  a  conditional  agrees 
with  that  of  LISP  1.5  for  pairs 
of  items,  but  allows  additional 
flexibility.  If  the  first  ele¬ 
ment  of  the  first  list  is  false 
(■NIL),  then  the  second  subli3t 
is  considered 4  etc.  Thus,  the 
arguments  are  searched  until  a 
first  element  of  a  list  Is  found 
which  is  not  NIL.  If  none  are 
found,  the  value  of  the  conditional 
expression  is  NIL. 
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selectqCx-.y^^; . . .  ;yn;z]  This  very  useful  function  is  used 

to  select  a  sequence  of  instruc¬ 
tions  based  on  the  vaiue  of  its 
first  argument  x-  Each  of  the 
y^  is  a  list  of  the  form 

(-i  ®u  ®2i*  *  *-ki  ^ 

where  5^  is  the  selection  key. 

If  s^  is  an  atom  the  value  of  x 
is  tested  to  see  if  it  is  e£  to 
s^  (not  evaluated).  If  so,  the 

expressions  are  eval¬ 

uated  in  sequence,  and  the  value 
of  the  selectq  is  the  value  of 
the  last  expression  evaluated, 

1,e*  -ki* 

If  si  Is  a  list,  and  If  any  ele¬ 
ment  of  is  e£  to  the  value  of 
x,  then  e^  to  e^  are  evaluated 
in  turn  as  above. 

If  y^  is  not  selected  In  one  of 
the  two  ways  described  then 
y^+1  is  tested,  etc.  until  all 
the  y's  have  been  tested.  If 
none  is  selected,  the  value  of 
the  selectq  is  the  value  of  z. 
z  must  be  present. 
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An  example  of  the  form  of  a 
selectg  is : 


(SELECTQ  (CAR  X) 

(Q  (PRINT  F00)  (FIE  X)) 

((A  E  I  0  U)  (VOWEL  X)) 

(Y  (TRY -AGAIN  X)) 

( COND( (NULL  X)NIL) 

(T  (QUOTE  STOP)))) 
which  has  3  cases,  Q,(A  E  I  0  U) 
and  Y,  and  a  default  condition 
which  is  a  cond. 

selectg  compiles  open,  and  is 
therefore  very  fast;  however  it 
will  not  work  for  lists,  large 
integers  or  floating  point  num¬ 
bers  since  it  uses  a  2*1  bit  open 
compare  (an  open  eq) . 

progl[x. ;x^ ; . . . ;X  ]  This  functijn  evaluates  its 

i  c  n 

arguments  in  order,  that  is,  x^ 
then  etc.  It  returns  the 
value  of  its  first  argument  x^. 

prog2[x;yj  Evaluates  x,  then  £  and  returns 

1- 

progn[x;y ; . . . ;z]  progn  evaluates  each  of  its 

arguments  in  sequence,  and  re¬ 
turns  the  value  of  its  last 
argument  as  its  value.  It  is  an 
extension  cf  prog2 . 
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prog[args; 


go[x] 


]  This  feature  allows  the  user  to 

write  an  ALGuL-like  program  con¬ 
taining  LISP  statements  to  be 
executed  and  is  identical  to  the 
prog  in  LISP  1.5.  The  first 
argument  is  a  list  of  program 
variables.  The  rest  is  a  se¬ 
quence  of  (non-atomic)  state¬ 
ments  (expressions),  and  atomic 
symbols  used  as  labels  for  trans¬ 
fer  points.  The  value  of  a  prog 
is  determined  by  the  function 
return.  If  no  return  is  exe¬ 
cuted,  the  value  of  the  prog  is 
not  guaranteed,  but  will  not  give 
an  error. 

go  is  the  function  used  to  cause 
a  transfer  in  prog.  (GO  A)  will 
cause  the  program  to  continue  at 
the  label  A. 

A  go  can  be  used  at  any  level  in 
a  prog.  If  a  go  is  executed  in 
an  interpreted  function  which  is 
not  a  prog ,  it  will  be  executed 
in  the  last  interpreted  prog 
entered. 
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return[x] 


set[x;y] 


setq[x;y] 


setqq[x;y] 


A  return  is  the  normal  end  of  a 
prog.  Its  argument  is  evaluated 
and  is  the  value  of  the  prog  in 
which  it  appears.  If  a  return 
is  executed  in  an  Interpreted 
function  which  is  not  a  prog , 
the  return  will  be  executed  in 
the  last  interpreted  prog  entered. 

This  function  se^s  the  atom  which 
is  the  value  of  x,  to  the  value 
of  and  returns  the  value  of  £. 

This  FSUBR  is  identical  to  set , 
except  that  the  first  argument 
is  not  evaluated. 

Example:  If  the  value  x  is  c, 
and  the  vaiue  of  £  is  b,  then 
set  [x;y]  would  result  in  c 
having  value  b,  and  b  returned. 
setq[x;y]  would  result  in  x 
having  value  b,  and  b  returned. 

In  both  cases,  the  value  of 
ij  unaffected. 

Identical  to  setq  except  that 
neither  argument  is  evaluated. 


Predicates  and  Logical  Connectives 


atom[x] 


eq[x;y] 


eqp[x;y] 


neq[x  :y ] 


nlll  [  ] 


atom[x]*T  if  x  is  an  atom;  NIL 
otherwise . 


The  value  of  e£  is  T  if  x  and 
are  identical  atoms,  NIL  other¬ 
wise.  This  includes  numbers,  if 
eq  is  called  from  an  interpreted 
function.  It  is  not  guaranteed 
for  floating  point  numbers  and 
large  integers  when  used  in  a 
compiled  function,  since  it  is 
compiled  open  as  a  2 4  bit  compare. 


Identical  to  e^,  except  that  it 
is  compiled  closed,  and  hence 
will  work  for  all  numbers  in 
compiled  code. 

The  value  of  this  function  is  T 
if  x  is  not  eqp  to  £,  and  NIL 
otherwise . 


Defined  as  NIL 


null[x]  eq[x;NIL] 

equal[x;y]  The  value  of  this  function  is  T 

if  x  and  £  are  equal,  that  is, 
identical  S-expressions ,  and  NIL 
otherwise.  Identical  here  means 
that  they  will  print  identically. 


andL Xp.  .  .5cn  j 


ortxli . . . ;xn] 


notLx] 
memb[x;y ] 


member[x;y j 


This  function  is  an  FSUdR  and 
can  take  an  indefinite  number  of 
arguments.  Its  value  is  the 
value  of  its  last  argument  if 
none  of  its  arguments  has  value 
NIL,  and  is  NIL  otherwise.  Argu- 
mfnts  past  the  first  null  argu¬ 
ment  are  not  evaluated. 

or  is  also  an  FSUBR  and  may  have 
an  indefinite  number  of  arguments 
(including  0).  or  has  value  NIL 
if  all  of  its  arguments  have 
value  NIL,  otnerwise,  it  has  the 
value  of  its  first  non-null  argu¬ 
ment.  Arguments  past  this  one 
are  not  evaluated. 


Same  as  null 


This  function  determines  if  x  is 
a  member  of  list  i.e.  if  there 
is  an  element  of  ^  to  x.  If 
so  it  returns  the  portion  of  the 
list  starting  with  that  element. 
If  not  it  returns  NIL. 

Identical  to  me mb  except  that  it 
uses  equal  instead  of  ec^  to  check 
membership  of  x  in  y_. 


I 

I 


i 


intersection^ ,y ]  This  function  returns  with  a  list 

whose  elements  were  members  of 
both  lists  x  and  £. 

unlon[x;y]  This  function  is  entered  with  two 

lists.  It  returns  with  a  list 
consisting  of  all  elements 
included  on  either  of  the  two 
original  lists.  If  the  same 
item  is  a  member  of  both  original 
listSj  it  is  included  only  once 
on  the  new  list. 
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llstCx^  .  .  . 


append[x;y] 


nccnc[x;y] 


SECTION  VI 

LIST  MANIPULATION  AND  CONCATENATION 

x  H  The  value  of  list  is  a  list  of 

n  j  - 

the  values  of  its  arguments. 

This  function  copies  the  top 
level  of  list  x  and  appends  list 
£  to  this  copy.  The  value  is 
the  combined  list. 

This  function  is  similar  to 
append  in  effect,  but  it  causes 
this  effect  by  actually  modifying 
the  list  structure  x,  and  making 
the  last  element  in  the  list  x 
point  to  the  list,  jn  The  value 
of  nconc  is  a  pointer  to  the  first 
list  x,  but  since  this  first  list 
has  now  been  modified,  it  is  a 
pointer  to  the  concatenated  list. 
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tconc[x;p J 


This  function  provides  an  effi¬ 
cient  way  for  placing  an  item  x 
at  the  end  of  a  list.  This  list 
is  the  first  item  on  £,  that  is, 
car[p];  cdr[p]  is  a  pointer  to 
the  last  element  in  this  list;  x 
is  placed  on  the  end  of  the  list 
by  modifying  this  structure,  and 
x  is  placed  on  the  list  as  an 
item.  The  effect  of  this  function 
is  equivalent  to 

nconc[car[p] ;  List[x]] ,  with  cdr[p] 
updated  to  point  to  the  last  ele¬ 
ment  of  the  modified  list. 

lconc[x;p]  This  function  is  similar  to  tconc , 

except  that  in  this  case  x  is  a 
list.  An  entire  list  will  be 
tacked  on  the  end  of  car[p],  and 
cdr[pj  will  be  adjusted  to  be  a 
pointer  to  the  last  element  of 
this  new  combined  list.  Both 
tconc  and  leone  work  correctly 
given  null  arguments. 

attach[x;y]  This  function  attaches  the  element 

x  on  the  front  of  the  list  by 
doing  an  rplaca  and  an  rplacd. 

This  will  not  work  correctly  if 
is  an  atom.  Thus  it  is  similar 
to  cons ,  except  that  it  modifies 
the  contents  of  the  first  element 
of  the  non-null  list  y_. 
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remove[x;l] 


dremove[x;l] 


copy[x] 


reversed] 


dreverse[l] 


subst[x;y ;z] 


The  function  remove  removes  all 
occurrences  of  x  from  list  1, 
giving  a  copy  of  x  with  all  ele¬ 
ments  equal  to  x  removed. 

This  function  is  identical  to 
remove,  but  actually  modifies 
the  list  1  when  removing  x,  and 
returns  x  itself. 

This  function  makes  a  copy  of  the 
list  x.  The  value  of  copy  is  the 
(location  of  the)  copied  list.  All 
levels  of  x  are  copied. 

This  is  a  function  to  reverse  the 
top  level  of  a  list.  Thus,  using 
reverse  on 

(A  B  (CD))  gives  ( (C  D)  B  A) 

Identical  to  reverse  but  dre verse 
destroys  the  list  1  while  reversing 
by  modifying  pointers,  and  thus 
does  not  use  any  additional 
storage. 

This  function  gives  the  result  of 
substituting  the  S-expressior.  x 
for  all  occurrences  of  the  atomic 
symbol  £  in  thr  S-expression  z. 

It  returns  a  copy  of  z  with  the 
changes  made. 
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dsubst[x;y ;z] 


sublis[x;y ] 


subpair[x;y ;z]fi 


'  n.s  t  [  x  ] 


Identical  to  subst  t  but  physically 
inserts  a  copy  of  x  for  £  in  z, 
thus  changing  the  list  structure 
z  itself. 


Here  x  is  a  list  of  pairs: 


((u^v^  (u2.v2) 


<W> 


The  value  of  sutlis[x;y]  is  the 
result  of  substituting  each  v 
for  the  corresponding  u  in 
Copies  the  structure  £  with 
changes . 


Similar  to  sublls ,  except  that 
elements  on  y  are  substituted  for 
corresponding  atoms  on  ^  in  z. 

New  structure  is  created  only  if 
needed,  or  if  fl-T. 

This  function  has  as  its  value  a 
pointer  to  the  last  cell  in  the 
list  x,  anc.  returns  Nli.  if  x  is 
an  atom.  i.e.  if  x»(A  B  C)  then 
last  [x]  =  (C) 
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! 


I 

nth[x;n] 

I 

I 
I 

i|  length[x] 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


The  arguments  of  nth  are  a  list  x 
and  a  positive  integer  n.  Its 
value  is  a  list  whose  first  ele¬ 
ment  is  the  nth  element  of  list 
x.  Thus  if  n  ■  1,  it  returns 
the  list  x  itself.  If  n  »  2, 
it  returns  cdr[x].  If  n  »  3, 
it  returns  cddr[x],  etc. 

If  n  *  0  it  returns  cons[NIL,x], 

This  function  has  as  a  value  the 
length  of  the  list  x.  If  x  is 
an  atom,  it  returns  0. 


put[x;y ;z] 


remprop[x;y ] 


prop[x;y ;u] 


SECTION  VII 

PROPERTY  LIST  FUNCTIONS 

This  function  puts  on  the  pro¬ 
perty  list  of  x,  the  label  £ 
followed  by  the  property  z.  The 
current  value  of  z  replaces  any 
previous  value  of  z  with  label  £ 
on  this  property  list. 

This  function  removes  all  occur¬ 
rences  of  tne  property  with  label 
£  from  the  property  list  or  x. 

The  function  prop  searches  the 
list  x  for  an  item  that  is  equal 
to  If  such  an  element  Is 
found,  the  value  of  prop  is  the 
rest  of  the  list  beginning 
immediately  after  that  element. 
Otherwise,  the  value  is  u[], 
where  u  is  a  function  of  no  argu¬ 
ments.  Its  effect  is  similar  to 
me mb  and  member ,  and  they  are 
more  efficient  when  usable. 
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get[x;y j 


This  function  gets  from  the  list 
x  the  item  after  the  atom  on 
list  x.  If  y  is  not  on  the  list 
x,  this  function  returns  NIL.  For 
example,  get[(A  B  C  D);B]  ■  C. 

getp[x;y]  This  function  gets  the  property 

with  label  £  from  the  property 
list  of  x. 

NOTE:  Both  getp  and  get  may  be 
used  on  property  lists.  However, 
since  getp  searches  a  list  two  at 
a  time,  the  latter  allows  one  to 
have  the  same  object  as  both  a 
property  and  a  value,  e.g.,  if 
the  property  list  of  x  is 
( PR0P1  A  PROP 2  B  A  C) 

then  get[x;A]  ■  PR0P2, 
but  getp[x;A]  ■  C. 

deflist[x;p]  This  function  is  used  to  put 

items  on  property  lists.  Its 
first  argument  x  is  a  list  of 
two  element  lists.  The  first  of 
each  :Ls  a  name.  The  second  ele¬ 
ment  is  the  value  to  be  stored 
after  the  property  £  on  the  pro¬ 
perty  list  of  the  name.  Th» 
second  argument  £  is  the  property 
that  is  to  be  used. 
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add[x;y  ;z] 


This  function  adds  the  value  z  to 
the  list  appearing  under  the 
property  on  the  atom  x.  If  x 
does  not  have  a  property  the 
effect  is  the  same  as 
put[x;y  ;list[z]] . 

assoc[x;a]  If  a  is  a  list  of  dotted  pairs, 

then  assoc  will  produce  the  first 
pair  whose  first  item  is  e£  to  x.  If 
such  an  item  is  not  found,  assoc 
will  return  NIL. 

sasscc[x;y ;u]  The  function  sassoc  searches 

which  is  a  list  of  dotted  pairs, 
for  a  pair  whose  first  element  is 
equal  to  x.  If  such  a  pair  is 
found,  the  value  of  sassoc  is  this 
pair.  Otherwise,  the  function  u 
of  no  arguments  is  taken  as  the 
value  of  sassoc. 
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SECTION  VIII 


FUNCTION  DEFINITION  AND  EVALUATION 


getd[x] 


putd[x;y] 


putdq[x ;y ] 


This  function  gets  the  definition 
of  the  function  whose  name  is 
the  value  of  x.  If  x  is  not  a 
defined  function,  the  value  of 
getd[x]  is  NIL;  if  x  is  a  machine 
code  function,  the  value  is  a 
number . 

putd  places  the  value  of  £  into 
the  f”nction  cell  of  tne  atom 
which  is  the  value  of  x.  This 
is  the  basic  way  of  defining 
functions,  putd  is  mnemonic  for 
put  definition  on  x.  The  value  of 
putd  is  the  definition  (value  of 
£>• 


This  function  is  similar  to  putd , 
but  both  arguments  are  considered 
quoted,  and  its  value  is  x. 
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fntyp[fn] 


This  function  returns  NIL  if  the 
atom  fn  is  not  the  name  of  a  de¬ 
fined  function.  If  fn  is  a  func¬ 
tion,  then  fntyp  returns  one  of 
the  following  as  defined  in  the 
section  on  function  types: 

EXPR  CEXPR  3UBR 

EXPR*  CEXPR*  SUBR* 

FEXPR  CFEXPR  FSUBR 

FEXPR*  CFEXPR*  FSUBR* 

The  prefix  F  indicates  unevalu¬ 
ated  arguments i  the  prefix  C  in¬ 
dicates  compiled  code;  and  the 
suffix  *  indicates  an  indefinite 
number  of  arguments. 

define[x]  The  argument  of  define  is  a  list. 

Each  element  of  the  list  is  it¬ 
self  a  list  containing  two 
or  more  items.  In  a  two-item 
list,  the  first  item  of  each  ele¬ 
ment  of  the  list  is  the  name  of  a 
function  to  be  defined,  and  the 
second  item  is  the  defining 
LAMBDA  or  NLAMBDA  expression.  In 
longer  lists,  the  first  item 
is  again  the  name  of  the  function 
to  be  defined.  The  second  is  the 
LAMBDA  list  of  variables  and  the 
remainder  of  the  lists  are  forms  for 
evaluation.  As  an  example,  consider 
the  following  two  equivalent 


-36- 


expressions  for  defining  the 
function  null. 


1)  (NULL  (LAMBDA  (X)  (EQ  X  NIL))) 

2)  (NULL  (X)  (EQ  X  NIL)) 

define  will  not  allow  redefini¬ 
tion  of  a  SUBR  or  FSUBR. 

defineq[x; . . . ;z]  This  FEXPR  is  closely  related  to 

define .  However,  it  can  take  an 
indefinite  number  of  arguments, 
and  it  will  treat  them  literally 
as  if  they  were  quoted.  Each  of 
the  arguments  must  be  a  list,  of 
the  form  described  in  define. 
Using  def lneq  instead  of  define 
allows  one  to  eliminate  two  pairs 
of  parentheses  in  writing  func¬ 
tions  to  be  defined  for  loading 
with  the  function  load. 

eval[x]  eval  evaluates  the  expression  x 

and  returns  this  value. 

evala[x;a]  This  is  the  regular  eval  from 

709^  LISP.  Its  first  argument  is 
a  form  which  is  evaluated  by  us¬ 
ing  the  values  obtained  from  a, 
a  list  of  dotted  pairs.  That  is, 
any  variables  appearing  free  in 
x,  that  also  appear  on  a,  will  be 
given  the  value  indicated  on  a. 
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evalr[x;a] 


e[x] 


apply[fn;args] 


nargs[fn] 


arglist [ fn ] 


Same  as  evala  except  with  list  a 
reversed.  Used  by  evala . 

This  FEXPR  is  defined  as  eval ; 
however,  it  is  shorter  and  it  re¬ 
moves  the  necessity  for  the  extra 
pair  of  parentheses  for  the  list 
of  arguments  for  eval .  Thus, 
when  typing  into  evalquote  one 
can  simply  type  e  followed  by 
whatever  one  would  type  into  eval 
and  have  it  evaluated. 

apply  applies  the  function  fn  to 
the  arguments  args .  i.e.  the 
arguments  of  fn,  args ,  are  not 
evaluated  but  given  to  fn  direct¬ 
ly- 

Returns  NIL  if  fn  is  not  a  func¬ 
tion,  and  the  number  of  arguments 
of  fn  if  it  is.  It  returns  1  for 
functions  of  tyne 
EXPF*  ,  FEXPR* ,  CEXPR* ,  CFEXPR*, 
CSUBR*  and  CFSUBR*. 

Returns  with  the  list  of  argu¬ 
ments  of  the  function  fn.  Causes 
an  error  if  fn  is  a  built-in 
function  or  undefined. 
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P 

U  — 


r  “i 


arg[n] 


This  function  works  with  a  func¬ 
tion  of  type  EXPR*  or  CEXPR*. 

It  returns  argument  n  of  that 
function.  It  is  undefined  if 
n£0  or  n>m  where  m  is  the  number 
of  arguments  bound. 

Sets  argument  n  of  an  EXPR* 
function  to  v. 


-39- 


SECTION  IX 


THE  LISP  EDITOR 

The  LISP  editor  allows  rapid,  convenient  modification  of  list 
structures.  Most  often  it  is  used  to  edit  function  definitions, 
often  while  the  function  itself  is  running.  It  is  another  impor¬ 
tant  feature  which  allows  good  on-line  interaction  in  the  BBN-LISP 
system. 

Editor  Language  Structure 

Let  us  take  a  concrete  example  of  a  list  (not  necessarily  a  func¬ 
tion  definition)  to  be  edited.  Suppose  we  are  editing  the  follow¬ 
ing  incorrect  definition  of  tne  append  function: 

(LAMBDA  (X)  Y  (COND  ((N’JL  X)  Z)  (T  (CONS  (CAR) 

(APPEND  ( CDR  X  Y) ))))). 

At  any  given  moment,  the  editor's  attention  is  confined  to  a 
single  list  (generally  a  subcomponent  of  the  original  list  being 
edited),  which  It  will  print  when  given  the  command  P.  To  avoid 
printing  of  confusing  detail,  sublists  of  sublists  will  be  printed 
simply  as  &.  Thus: 

*P 

(LAMBDA  (X)  Y  (COND  &  4)). 

where  *  indicates  that  this  line  was  typed  by  the  user. 


Only  the  list  on  which  attention  is  currently  focused  may  be 
changed.  Commands  thus  fall  naturally  into  four  classes:  moving 
around  the  list  structure;  making  changes  in  the  current  list; 
printing  parts  of  the  list  being  edited;  and  entering  and  leaving 
the  editor. 

Many  commands  use  the  convention  that  an  integer  designates  a 
sublist  of  the  current  list*  For  example,  if  an  integer  alone 
is  typed,  attention  is  focused  on  the  designated  sublist  of  the 
current  list. 

Thus : 


*2 

*P 

(X) 

The  converse  command  is  the  number  0,  which  causes  the  current 
list  to  revert  to  its  former  state.  For  example,  starting  again 
with  the  list  at  the  beginning  of  the  section: 

*3  P 
Y 

*0  P 

(LAMBDA  (X)  Y  (COND  &  &)). 

Note  the  use  of  several  commands  on  a  single  line.  In  BBN  LISP, 
a  carriage  return  is  printed  automatically  whenever  a  r-jLght  paren¬ 
thesis  is  typed  which  causes  the  parenthesis  level  to  become  a 
zero.  Therefore,  a  non-atomic  command  is  necessarily  always  the 
last  command  on  its  line. 
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In  the  remaining  examples,  unless  mentioned  specifically ,  it  is 
assumed  that  the  state  of  the  edit  is  that  which  existed  at  the 
end  of  the  previous  example.  As  above,  lines  typed  by  the  user 
are  prefixed  with  an  asterisk. 

Attention  Commands 


The  two  fundamental  commands  for  moving  around  the  structure  have 
i  eady  been  mentioned:  a  positive  Integer  n,  to  examine  the  nth 
sublist,  and  0,  to  revert  to  the  superlist.  If  n  is  a  positive 
integer,  then  ~n  examines  the  n  1  sublist  of  the  current  list 
starting  from  the  end  and  counting  backwards,  i.e.  -1  examines 
the  last  sublist  of  the  current  list. 

A  more  drastic  command  is  +,  which  clears  the  editor's  memory  of 
descent  through  the  structure  and  reestablishes  the  tc.p  level  of 
the  entire  list  structure  being  edited  as  current.  Thus: 

*4  2  1  +  P 

( LAM3DA  (X)  Y  (COND  &  &)). 

P  command  similar  to  n  io  vNTH  n)  which  caused  the  list  starting 
with  the  nth  sublist  of  the  current  list  to  become  current.  Thus 

*(NTH  3) 

*? 

(Y  (COND  &  &)). 

*0  P 

(LAMBDA  (X)  Y  (COND  &  &)). 
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(NTH  -n)  may  also  be  used,  with  the  expected  result: 

* ( NTH  -3) 

•P  + 

((X)  Y  (COND  &  &)) 

The  command  (F  e),  where  e  is  any  S-exprer sion,  searches  for  an 
instance  of  e  in  the  current  list,  and  then  acts  like  NTH,  so 
that  for  example: 

*(F  Y) 

«P 

(Y  (COND  &  &'/j. 

A  more  thorough  (and  time-consuming)  search  is  provided  by  (F  e 
which  searches  through  the  entire  structure.  Thus: 

( F  Z  T) 

«P 

(Z) 

*0  P 

((NUL  A)  Z) 

«0  P 

(COND  (&  Z)  (T  &)) 

*0  P 

(LAMBDA  (X)  Y  (COND  &  &)). 
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One  more  variation  is  provided  by  (Fen),  which  finds  the  nth 
occurrence  of  e  anywhere  in  the  struct)  ?.  The  search  is  done 
in  printout  order,  so  for  example: 

*+  (F  X  1) 

*P 

(X) 

*+  (F  X  2) 

*P 

(X) 

*0  P 
(NUL  X) 

*t  (F  X  3) 

*0  P 

(CDR  X  Y) 

The  argument  e  of  the  F  commands  need  not  be  a  literal  S-expression . 
The  symbol  &  will  match  any  element  of  a  list;  the  symbol  —  as 
the  last  element  of  a  list  to  be  searched  for  will  match  the  rest 
of  any  list .  Thus : 

•+(F  (NUL  &)  T) 

*P 

(NUL  X) 

*r(F  (CDR  — )  T) 

*P 

(CDR  X  Y) 

*t(F  (CDR  &)  T) 

9 

The  question  mark  which  followed  the  last  command  is  the  editor's 
all-purpose  error  comment:  it  simply  means  something  was  v/rong 


with  the  last  command.  The  commands  are  simple  enough  that  it 
is  rarely  diffic  It  to  ascertain  the  nature  of  the  error.  A 
problem  may  arise  if  several  commands  were  stacked  on  a  single 
line,  since  no  indication  is  given  of  which  one  caused  the  error: 
in  this  case  the  state  of  the  edit  can  always  be  discovered  by 
using  P. 

Three  facilities  are  available  for  saving  information  relating  to 
the  current  state  of  the  edit  and  later  retrieving  it.  At  any 
stage  in  the  edit,  a  mark  can  be  made  and  later  returned  to.  The 
commands  are  MARK,  which  marks  the  current  state  for  future 
reference:  •*-,  which  returns  to  the  last  mark  without  destroying 
it;  and  ,  which  returns  to  the  last  mark  and  forgets  it.  For 
example : 

*t  k  2  P 

(vNUL  X)  Z) 

"MARK  +  (F  CONS  T) 

*P 

(CONS  (CAR)  (APPEND  &)) 

*t  P 

(LAMBDA  (X)  Y  (COND  &  &)) 

*4-+-  p 

((NUL  X)  Z) 

*+-  P 

? 

This  last  example  demonstrates  another  facet  of  the  error  recovery 
mechanism:  to  avoid  further  confusion  when  an  error  occurs,  all 

commands  on  the  line  beyond  the  one  which  caused  the  error  are 
forgotten . 
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A  more  drastic  marking  facility  is  available  if  it  is  desired  to 
save  the  state  of  the  edit  in  its  entirety.  Since  changes  are 
made  as  they  are  typed  in,  there  is  no  simple  way  to  undo  part  of 
an  edit.  However,  the  command  COPY  will  make  a  cony  of  the  entire 
state  of  the  edit,  which  may  be  retrieved  with  RESTORE.  This  has 
the  effect  of  undoing  all  chances  made  since  COPY  was  given,  since 
the  copy  is  not  affected  by  editing  commands  given  after  the  copy 
was  made.  This  facility  is  unlike  MARK  in  that  a  second  COPY 
obliterates  the  list  saved  by  the  first.  Furthermore,  since 
RESTORE  retrieves  the  copied  edit  state  and  not  a  coDy  thereof, 
subsequent  RESTORES  will  definitely  not  have  the  desired  effect. 

Frequently  it  is  desired  to  move  or  coDy  a  sublist  from  one  place 
in  the  structure  being  edited  to  another.  No  command  for  perform¬ 
ing  this  particular  operation  is  provided.  However,  it  is 
possible  to  set  a  variable  to  the  current  list  or  a  sublist  thereof. 
The  I  command  described  below  can  then  be  used  to  treat  this  value 
exactly  as  though  it  had  been  typed  in  literally.  In  particular, 
the  command  (S  v) ,  where  v  is  a  variable  name,  sets  v  to  the 
current  list.  (S  v  0)  may  also  be  used.  Thus: 

«+  (S  EL2  2) 

will  result  in  setting  the  value  of  EL2  to  the  sublist  (X). 
Modification  commands 


Just  as  most  general  text  editors  contain  INSERT,  REPLACE,  and 

APPEND  commands,  the  LISP  editor  provides  facilities  for  these 

three  basic  operations.  To  insert  the  S-exnressions  e....e 
'  —1  -m 

before  sublist  n  of  the  current  list,  one  simply  gives  the 

command  (-n  e.  ...  e  ),  thus: 

1  m 
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»t  (P  CAR  T) 

•P 

(CAR' 

«(-l  CRR) 

P 

(CRR  CAR). 

To  replace  the  nth  sublist  with  ^...e^,  one  gives  the  command 
(n  e^...e  ),  for  example: 

»t(F  NUL  T) 

«P 

(NUL  X) 

•(1  NULL  IS) 

•P 

(NULL  IS  X). 

And  to  append  at  the  end  of  the  current  list,  one  writes 
(N  e^. . .•») ,  thus : 

* ( N  THIS  LIST) 

«P 

(NULL  IS  X  THIS  LIST). 

Deletions  may  be  accomplished  by  using  the  replace  operation  with 
no  new  S-expressions  specified:  to  restore  the  list  we  have  Just 
created  to  the  state  in  which  we  presumably  want  it,  we  can  say: 


M5) 

M4) 

M2) 

•P 

(NULL  X). 

Deletions  should  generally  be  made  from  back  to  front,  since  other¬ 
wise  the  indices  of  later  sublists  will  change  as  earlier  ones 
are  deleted,  e.g.  the  above  sequence  of  commands  given  in  front 
to  back  order  would  have  been 

M2) 

M3) 

M3). 

Very  often  one  wants  to  make  a  simple  change  in  a  list  structure, 
without  wanting  to  knew  exactly  how  to  trace  down  the  structure 
to  the  point  where  the  emendation  is  to  be  made.  The  command 
(R  e-^ep)  replaces  all  occurrences  of  e^  in  the  current  list  and 
all  its  substructure  by  e 2 .  This  is  done  using  a  variant  of 
subst  called  dsubst  that  runs  faster,  and  physically  renlaces  the 
old  structure  in  the  list  by  a  copy  of  the  new  structure.  For 
example : 

»t(R  Z  Y) 

*4  2  P 
((NUL  X)  Y) 

The  mechanism  by  which  lists  saved  with  the  S  command  may  be  used, 
among  other  things,  is  (I  c  e^,  ...  en),  which  is  equivalent  to 
( [atom[c  3-^c ;  T-*-eval[c]]  eval[ej]  ...  eval[en]).  Thus  for  example, 
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if  EL2  has  been  set  to  (X)  as  per  the  sample  above: 

(I  (CAR  (QUOTE  (F)))  EL2  T) 

«P 

(X) 

because  the  I  command  is  equivalent  to  (F  (X)  T). 

Structure  changing  commands 

The  commands  presented  in  the  last  section  do  not  allow  convenient 
alteration  of  the  list  structure  itself,  as  opposed  to  components 
thereof.  Consider,  for  example,  the  list  (A  B  (C  D  E)  F  G).  We 
can  remove  the  parenthesis  around  (C  D  E),  which  is  the  third 
sublist,  by  (LO  3)  (this  stands  for  take  Left  paren  Out).  This 
produces  the  list  (A  B  C  D  E).  LO  simply  deletes  all  elements  of 
the  original  list  beyond  the  one  specified.  If  we  want  to  preserve 
them,  we  could  say  (BO  3),  take  Both  parentheses  Out,  which  pro¬ 
duces  (A  B  C  D  E  F  G).  Conversely,  if  we  want  to  take  the  partial 
list  beginning  at  B  and  subordinate  it  one  level,  making 
(A  (B  (C  D  E)  F  G)),  we  can  say  (LI  2),  i.e.  put  a  Left  parenthe¬ 
sis  in  before  sublist  2  (and  a  matching  right  parenthesis  at  the 
end  of  the  list).  Again,  if  we  want  the  matching  right  parenthe¬ 
sis  inserted  somewhere  other  than  at  the  end  of  the  list  (after 
the  F,  for  example),  we  can  say  (BI  2  4),  DUt  Both  parentheses 
In  around  elements  2  through  4,  which  results  in  the  list 
(A  (B  (C  D  E)  F)  G). 


I 

! 

I 


Two  other  operations  of  this  sort  are  also  possible.  If  we  wanted 
to  bring  only  the  D  and  E  up  to  the  level  of  the  A  B  F  G,  and 
leave  (C)  as  a  sublist,  we  can  use  (RI  3  1),  namely  move  the  Right 
paren  at  the  end  of  sublist  3  In  to  sublist  3  after  sublist  1 


* 


(of  sublist  3)*  This  will  produce  (A  B  (C)  D  E  P  G).  A  related 
operation  is  (RO  3),  which  means  move  the  Right  parenthesis  of 
sublist  3  Out  to  the  end  of  the  list,  producing  (A  B  (C  D  E  F  G)). 
Finally,  if  it  is  desired  to  move  a  right  parenthesis  only  part¬ 
way  out,  for  example  to  produce  (AB(CDEP)G),  this  can  be 
accomplished  by  (RO  3)  followed  by  (RI  3  *0. 

Printing  commands 

We  have  already  encountered  the  command  P,  which  prints  the  current 
list  showing  only  one  level  of  nesting.  To  print  a  selected  sub¬ 
list  in  the  same  way  without  changing  the  state  of  the  edit, 

(P  n)  is  used:  for  example, 

•  t  P 

(LAMBDA  (X)  Y  (COND  &  &)) 

•(P  2) 

(X). 

Furthermore,  one  may  examine  the  nth  sublist  (or,  if  n=0,  the 
current  list)  to  m  levels  of  nesting  by  using  (P  n  m).  The  con¬ 
vention  is  that  m=3  yields  the  usual  format:  several  illustrations 
are  given  below: 

•(P  0  1) 

& 

*(P  0  2) 

(LAMBDA  &  Y  &) 

*(P  0  3) 

(LAMBDA  (X)  Y  (COND  &  &)) 

»(P  H  2) 

(COND  &  &) 

*(P  H  4) 

(COND  ((NUL  X)  Z)  (T  (CONS  &  &))). 
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Another  command  wnich  is  available  for  examining  4  he  environment 
during  editing  is  (E  e),  which  simply  prints  the  value  of  e  with¬ 
out  disturbing  the  state  of  the  edit.  This  is  done  under  errorset, 
so  that  one  can  actually  try  to  run  the  function  which  one  is 
editing.  It  should  be  mentioned  that  changes  are  made  as  soon  as 
they  are  typed  in,  so  that  the  state  of  the  definition  of  a  func¬ 
tion  (which  is  what  is  usually  being  edited)  is  always  exactly 
what  one  expects.  Also,  the  variable  1  contains  the  state  of  the 
edit,  with  the  current  list  being  car[l].  Thus,  (E  (CAR  L) )  will 
cause  the  current  list  to  be  printed  by  print . 

Edit  Macros 


In  editing  a  set  of  functions,  to  make  a  consistent  change  in  a  num¬ 
ber  of  places,  one  must  give  the  same  sequence  of  commands  a  number  of 
times.  For  example,  to  replace  all  occurrences  of  calls  to 
(F00  &)  by  calls  to  (FIE  &  T),  (where  &  stands  for  any  expression), 
one  would  type 

+ 

(F  F00  T) 

(1  FIE) 

(N  T) 

as  many  times  as  the  replacement  was  necessary.  To  save  this 
typing,  one  can  define  an  edit  Macro,  called  RF  for  example,  by 
typing 

(M  RF  +  (F  F00  T)  (1  FIE)  (N  T) ) 
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Then  each  time  you  type 


RF 

the  sequence  of  commands,  following  the  RF  in  the  definition  li’st, 
will  be  executed.  If  RF  were  made  the  last  command  in  the  list, 
the  sequence  would  be  repeated  until  F00  could  not  be  found. 


The  simple  ed  cros  described  above  cannot  be  given  any  argu¬ 
ments,  and  will  always  do  exactly  the  same  thing.  One  can  also 
define  macros  which  use  parameters.  For  example,  to  define  a 
macro  to  switch  two  items  in  a  list,  one  would  type 

(M  SW  (A  B)  (S  SW1  A)  (S  SW2  B)  (I  B  SW1)  (I  A  SW2 ) ) 


where  the  list  of  argument  names  (A  B)  immediately  follows  the 
macro  name,  SW.  To  make  this  macro,  SW  switch  items  2  and  7  in 
a  list,  one  would  type 

(SW  2  7) 


This  command  would  substitute  2  for  A,  and  7  for  B,  in  the  macro 
definition  following  the  argument  list  (A  B);  and  then  execute 
that  sequence  of  commands  with  the  substituted  values.  In  this 
case,  the  sequence  would  be 


(S  SW1  2) 
US  SW2  7) 
(I  7  S’  1) 
(I  2  SW2) 


Note  that  a  macro  with  no  parameters  is  called  by  typing  an  atom 
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(its  name);  a  macro  with  parameters  must  be  called  by  using  its 
name  as  the  first  element  of  a  list,  followed  by  the  values  to  be 
substituted  for  the  parameters  cf  the  macro. 

All  the  edit  Macro  definitions  can  be  found  on  a  free  variable 
called  EDITMACROS.  This  value  can  be  edited  by  the  editor,  and 
will  be  the  cumulative  list  of  all  macros  defined  since  the  current 
sysln  was  done.  New  definitions  of  macros  supercede  old  ones. 

This  feature  lets  you  easily  expand  the  repertoire  of  edit  commands, 
and  thus  "program'  the  editor.. 

Using  the  editor 

As  presently  interfaced  to  the  outside  world,  the  editor  consists 
of  a  basic  function  for  editing  S- expressions ,  edits,  and  three 
special  NLAMBDA  functions  for  editing  values,  definitions,  and 
property  lists,  respectively  edltv,  edltf .  and  edltp .  Thus, 

•EDITF(APPEND) 

EDIT 

would  be  used  to  begin  the  edit  which  has  been  used  as  the  example. 
When  editing  is  complete,  STOP  or  OK  will  cause  edlte  to  exit  with 
the  edited  list  as  value.  The  three  interface  functions  all  re¬ 
turn  as  value  the  atom  being  edited*  and  place  the  new  value  in  the 
appropriate  place. 


In  fact,  the  work  of  the  editor  is  done  by  two  functions  edltcom 
and  editdefault.  Editcom  assumes  the  existence  of  a  free  variable 


L,  Initialized  to  list  of  the  list  being  edited;  a  free  variable 
Y,  used  to  hold  the  copy  made  by  COPY,  if  any;  and  a  fiee  variable 

M,  to  hold  marks  made  by  MARK.  It  accepts  as  its  argument  an 
editing  command  and  performs  the  appropriate  transformation  on 
these  three  variables.  Unrecognizable  commands  are  passed  to 
edltdefault .  which  is  currently  defined  as  A[[c];error[c]] ;  the 
edit  is  run  by  edite  under  an  errorset . 

A  complete  example,  starting  with  the  erroneous  definition  given 
at  the  beginning  of  Section  IX  and  ending  with  the  correct  defini¬ 
tion  of  append,  is  given  below. 

•EDITF( APPEND) 

EDIT 

*(P  0  100) 

(LAMBDA  (X)  Y  (COND  <(NUL  X)  Z)  (T  (CONS  (CAR)  (APPEND 
(CDR  X  Y)))))) 

•(3) 

•(2  (X  Y)) 

*P 

(LAMBDA  (X  Y)  fCOND  &  A)) 

*(P.  NUL  NULL) 

»(R  Z  Y) 

•+(F  CAR  T) 

*(N  X) 

*t(F  CONS  T) 

*3  (RI  2  2) 

•P 

(APPEND  (CDR  X)  Y) 

•+(P  0  100) 

(LAMBDA  (X  Y)  (COND  ((NULL  X)  Y)  (T  (CONS  (CAR  X)  (APPEND 
(CDR  X)  Y) ) ) ) ) 

*STOP 

APPEND 


-54- 


In  all  fairness,  it  should  be  admitted  that  in  this  ptrticul&r 
instance  it  probably  would  have  been  faster  to  type  the  function 
in  again.  However,  LISP  functions  are  typically  three  times  as 
big  as  append  and  have  only  one  or  two  errors.  It  has  been  found, 
after  over  a  year  of  use  at  BBN  and  Berkeley,  that  the  editor  Just 
described  does  materially  decrease  the  amount  of  time  required 
to  produce  working  LISP  programs. 

A  Summary  of  the  Editor  Commands 

Atoms 

n>0  Makes  nth  element  be  current  level  list 

n<0  Makes  nth  element  from  end  be  current  level  list 

n*0  Makes  previous  level  be  current  level  list 


COPY 

RESTORE 


MARK 


Saves  a  copy  of  current  work 
Restores  as  current  work  earlier  copy 
Prints  current  level  list  to  depth  3 
Makes  current  list  be  the  top  level  list 
Marks  this  point 

Makes  current  level  be  last  marked  list 
Makes  current  level  be  last  marked  list  and  forgets  mark 
Exit  from  editor 


STOP  or  OK 


Other  atoms  give  an  error  indication  of  ?  if  not  defined  as  an 
Edit  Macro.  This  can  be  changed  by  modifying  the  routine 
edltdefault ,  currently  defined  as 


(LAMBDA  (C)  (ERROR  C) ) 
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Lists 


(ll  S,  j  •  •  •  j 

(n  ®2> '  •  • » 

(N  '*.»•••»  8> ) 

(S  name) 
and 

(S  name  0) 

(S  name  n)  n>l 
(R  old  new) 

(P  n  m)  n>0 

(F  e) 

(F  e  T) 

(Fen)  n^l 


n>0  k^O  Replace  element  n  by  the  k  elements 
e ^ , . . . ,  e^.  Deletes  the  nth  ele¬ 
ment  if  k»0 

n<0  k>l  Inserts  e^ .  e^  before  nth  ele¬ 

ment 

Adds  e^  to  e^  at  end  of  current 
level  list 


Sets  name  to  current  level  list 

Sets  name  to  nth  element 

Replaces  all  occurrences  of  the 
old  Item  by  new  l.i  current  level 
list 

Prints  element  n  to  depth  m 
(current  list  If  n*0) 

Finds  e  at  current  level; 
matches  any  itein,  " — "  matches  any 
remaining  list 

Finds  e  at  any  level 

Finds  nth  occurrence  of  e  any  level 
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(NTH  n)  n»l 


n<0 


(I  comrm?  » e^. .  .e^) 


(E  e) 
(LO  n) 


(LI  n) 


(RO  n) 


(RI  n  m) 


Makes  nth  element  be  first  element 
of  current  list 

Makes  nth  element  from  the  end  be 
the  first  e.lement  on  the  list 

Evaluates  e^...^  and  then  performs 
command  as  usual* 

Command  can  be  a  number,  N,  R,  P, 
etc.  If  command  is  not  atomic, 
it  is  evaluated. 

Evaluates  and  prints  e 

Removes  left  paren  before  element 
n  (and  removes  a  right  paren  at 
end  of  current  list.  If  there  are 
no  more  right  parens  at  end  of 
iist,  elements  left  hanging 
"drop  off"). 

Inserts  left  paren  before  element 
n,  (and  a  corresponding  right  paren 
at  the  end  of  *'he  list). 

Removes  right  paren  after  element 
n.  It  moves  it  to  the  end  of  the 
current  list. 

Inserts  right  paren  in  element  n 
after  element  m.  In  element  n,  it 
moves  a  right  paren  from  the  end 
of  element  n  which  must  have  more 
than  m  elements* 
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(BO  n) 


Removes  both  left  and  right  parens 
around  element  n 

Inserts  both  left  ard  right  parens, 
making  a  sublist  at  positior  n 
containing  elements  n  to  m  inclusive. 

(M  «u..ne  Cj  c2...on)  Defines  name  (an  atom)  as  an  Edit 

Macro  equivalent  to  the  sequence 
of  commands  c 1 ,  c2,...,  c  . 

All  other  lists  cause  errors,  which  print  "?".  See  the  statement 
on  editdefault  above. 

Edit  commands  are  all  interpreted  in  one  function  edltcom  which 
accepts  a  single  command  as  an  argument.  It  and  its  sub  functions 
assume  a  free  variable  L  initialized  to  list  of  the  list  to  be 
edited;  a  free  variable  Y  to  hold  a  copy,  if  requested,  and  a 
free  variable  M  to  hold  any  marks  created.  With  these  restrictions 
— ltcorn  can  be  used  as  a  subroutine  (as  it  is  in  breakln. 
described  in  the  section  on  debugging  aids).  Edlte  does  the 
'■‘eadir.g  from  the  teletype,  transmits  the  commands  to  edltcom. 
and  prints  the  "?”  on  errors.  All  errors  and  rubouts  are  caught 
by  the  errorset  in  edite. 
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SECTION  X 


ATOM,  ARRAY,  AND  STORAGE  MANIPULATION 

Tie  argument  x  of  pack  must  be  a 
list  of  atoms.  The  value  of  pack 
is  a  single  atom  whose  print  name 
is  a  packed  version  of  the  print 
names  of  all  the  atoms  given  in  the 
list.  Thus: 

pack[(A  BC  DEP  G)]  ■  ABCDEPO 
packCO  3)]  .  1.3  a  floating 

point  number 


unpack[x] 


The  argument  of  unpack  should  be  an 
atom.  The  value  of  unpack  is  a  list 
which  contains,  in  order,  the  char¬ 
acters  which  make  up  the  print  name 
of  that  atom. 


chcon[x;J ] 


Returns  a  list  of  numbers  represent¬ 
ing  characters  in  print  name  of  x 
which  must  be  an  atom. 

J  *  NIL  prlnl  representation 
"  T  Prln2  representation 
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gensym[ ] 


oblist[  ] 


reclaim[ ] 


minfs[n] 


gcgag[x] 


This  function  of  no  argument  gener¬ 
ates  a  unique  symbol  of  the  form 
Annnn,  in  which  each  of  n's  is 
replaced  by  a  digit.  Thus,  the 
first  one  generated  is  A0001,  etc. 
This  is  a  way  of  generating  new 
atoms  for  various  uses  within  the 
system. 

Creates  a  1st  of  all  atoms 
currently  in  the  system. 

This  function  initiates  a  garbage 
collection  and  returns  -'ith  the 
number  of  available  words  in 

free  storage.  See  minfs.  Atoms 
with  »;c  property  list,  value  or 
function  definition,  and  not  ys  . 
in  any  list,  are  collected. 

Sets  the  minimum  amount  of  free 
storage  which  will  be  maintained  by 
the  garbage  collector.  If,  after 
automatic  garbage  collection,  fewer 
than  n  free  vsords  are  present,  (as 
printed  out  by  the  garbage  collector) 
sufficient  storage  will  be  added  to 
raise  the  level  to  n. 

If  x»T  garbage  collector  will  print 
a  message  when  entered.  If  x*NIL  no 
message  is  printed.  Previous  setting 
is  returned.  Initially  set  to  T. 
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logout [] 


closer[a;x] 


ilp[x] 

openr[a] 


loc[x] 


vag[x] 


allocatefn] 


Deactivates  users  program  and  returns 
the  user  to  the  time-sharing  system 
executive. 

Stores  x  into  location  a.  Both  x 

and  a  must  be  numbers. 

l 

a<2  actual  core  location 
a^2  address  in  virtual 
address  space. 

Unrestricted  car  if  x* 

Value  is  number  in  a  as  defined 
in  closer. 

Makes  a  number  out  of  x,  i.e. 
returns  the  virtual  address  of  x. 

The  inverse  of  loc .  Unboxes  num¬ 
bers.  An  unboxed  number  n  which 
doesn't  correspond  to  the  address 
of  a  list  structure  or  an  atom  is 
printed  f/n  e.g.  array  pointers. 

Allocates  an  n  word  block  in  array 
(binary  program)  space.  Returns  a 
oointer  to  the  address  of  the  first 
word  allocated.  Returns  NIL  if  no 
more  array  (binary  program)  space 
is  available. 
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statistics[] 


nrlnts  out  statistics  on  number 
of  wraparounds  of  comoiled  code; 
number  of  mapped  stores;  total 
number  of  mapped  references  (car's, 
cdr’s,  corps's,  rplaca '  s  ,  rplacd's  t 
getd' s ,  etc.);  total  number  of 
drum  references. 

storage[]  Prints  out  current  status  of 

storage  including  numoer  of  binary 
program  (array)  words  in  use;  number 
of  li3t  words  (two  9^0  words)  in 
use;  number  of  9^0  words  available; 
and  number  of  words  used  up  for 
print  names . 


Array  Functions 


Arrays  and  compiled  code  are  both  allocated  out  of  a  common 
array  space.  Arrays  of  pointers  and  unboxed  integers  may  be  mani¬ 
pulated  by  the  following  three  functions : 


array [n,p,v]  This  function  allocates  a  block  of 

n+*J  9^0  words,  of  which  the  first 
are  header  information.  The  next 
p<n  are  cells  which  will  contain 
unboxed  Integers,  and  are  initialized 
to  0.  The  last  n-p>0  will  contain 
pointers  initialized  to  v.  If  £  *s 
NIL  it  is  assumed  equal  to  0  (i.e., 
a  symbolic  array).  The  value  of 
this  function  is  an  unboxed  number 
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which  is  the  location  of  the  array 
in  virtual  memory,  and  is  called 
an  array  -jointer. 

elt[a;m]  Has  as  value  the  mtn  element  of 

the  array  pointed  to  by  a.  For 
out  of  bound  calls,  if  m<l  or  m>n, 
where  n  is  the  length  of  the  array 
a,  elt  gives  element  1  if  m<l,  or 
element  n  if  m>n. 

seta[a;m;vj  Sets  the  value  of  the  mth  element 

of  a  to  v.  On  out-of-bounds 
reference  no  store  is  made.  The 
value  of  this  function  is  always 
v.  It  is  the  users  responsibility 
to  ensure  that  no  pointers  are 
placed  in  the  non-pointer  area. 

Any  in  that  area  will  r.ot  be 
traced  during  garbage  collection. 

arraysize[a]  Returns  the  size  of  array  a  if  a 

is  an  array  pointer. 

There  will  be  three  parallel  functions,  arrayf ,  eltf ,  and  setaf 
which  will  manipulate  arrays  of  unboxed  floating  point  numbers. 
Until  they  are  implemented,  only  pointers  to  floating  point 
numbers  can  be  stored  in  arrays.  These  will  be  useless  until 
open  floating  point  arithmetic  is  available 
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SECTION  XI 

FUNCTIONS  WITH  FUNCTIONAL  ARGUMENTS 

As  in  all  LISP  1.5  Systems,  arguments  can  be  passed  which  can  then 
be  used  as  functions.  Functions  which  use  functional  arguments 
should  use  variable**  with  obscure  names  to  avoid  conflict  of  vari¬ 
able  names  with  variables  used  free  in  a  functional  argument. 

There  is  no  :'FUNARG  device"  used  in  this  system.  All  system  func¬ 
tions  standardly  use  variable  names  consisting  of  the  function 
name  concatenated  with  x  or  fn  etc.  A  FUNARG  device  may  be 
implemented  in  tne  future. 

functional]  Similar  to  quote  except  that  x  is 

the  name  or  definition  of  a  fu:  ction 
used  as  an  argument;  muot  be  used 
wi'th  all  functional  arguments. 

map [ x ; f nl ; f n2 ]  If  fn2  is  NIL  (i.e.  not  provided) 

this  function  applies  the  function 
fnl  to  successive  tails  of  the  l:st 
x.  That  is,  first  it  computes 
fnl[*],  and  then  fnl[cdr[x]],  eco. 
until  x  is  NIL;  however,  if  fn2  is 
provided,  fn2[x]  is  used  instead 
of  cdr[x]  for  the  next  call  for  rnl . 
Thus  if  fn2  were  cddr ,  alternate 
elements  of  the  list  woi’la  be 
skipped.  If  fn2  is  a  conditional 
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mapc[x;fnl ;fn2] 


mapcar[x;fnl ;fn2] 


maplist[x;fnl ;fn2] 


mapconc [ x ; fnl ; f n2 ] 


mapcont  x ; fnl ; fn2 ] 


expression,  then  the  next  element 
to  be  looked  at  can  be  contingent 
on  a  computation. 

Identical  to  man,  except  that 
fnl[car[x]]  is  computed  each  time. 
If  fn2  is  NIL,  fnl  is  applied  to 
each  element  of  the  list  x  in  turn. 

If  fn2  is  NIL,  this  function  applie 
the  function  fn]  to  each  of  the 
elements  of  the  list  x.  It  creates 
a  new  list  which  is  a  map  of  the 
old  list  in  the  sense  that  each 
element  of  the  new  list  is  the 
value  of  anplying  fnl  to  the 
corresponding  element  of  the  old 
list.  If  fn2  is  provided,  fn2[x] 
is  used  instead  of  cdr[x]  for  each 
succeeding  computation  with  fnl . 

This  function  computes  successively 
the  same  values  that  map  computes; 
it  forms  a  new  list  consisting  of 
successive  values  of  applications 
of  this  function. 

Identical  to  mapcar  except  that  it 
does  an  nccnc  instead  of  a  cons . 

Identical  to  mapllst  except  that  3t 
does  an  nconc  instead  of  a  cons. 
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This  next  set  of  functions  is  a  slightly  different  extension  of 
the  mapping  functions  usually  found  in  LISP  1.3.  They  are  all 
defined  by  EXPR*  type  expressions,  and  make  no  recursive  calls. 

The  first  argument  to  each  is  a  function  ft,  of  n  arguments. 
Following  this  first  argument  should  be  n  lists.  The  .napping 
function  iterates  down  the  lists  by  successive  cdrs  until  any  one 
becomes  empty  and  then  riurns  the  value  specified.  At  each  itera¬ 
tion,  fn  is  applied  to  these  lists,  as  specified.  For  example, 
the  function 

pair[x;y]  could  be  defined  as 
maccarf functionfcons  3 ; x ;y  3 

mac[fn;x1:x2;... ;xn]  Similar  to  ma£.  Applies  fn  to 

succes  Lve  cdr's  of  x, ,x„ 

-  -l*-2;.. . ;xn. 

Returns  NIL. 

macc[fri;x1;x2;.  .  .  ;x  ] 


maclist[fn;x1;x2; . . . ;x^] 


mrxccar[fn;x1;x2; . . ,  ;xn3  Similar  to  mapcar.  Applies  fn  to 

car’s  of  successive  cdr's  of 

—1 ’—2 ’ "  ' » — n *  Returns  a  consed 
list  of  these  values. 


Similar  to  mapc .  Applies  fn  to 
car's  of  successive  cdr's  of 
~1  *—2 *  *  *  *  ’•^n *  Returns  NIL. 

Similar  to  mapllst.  Applies  fn 
to  successive  cdr's  of 
x^  ;  x2  ; . . .  ;x^ .  Returns  a  consed 
list  of  these  values. 
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maccon[fr.:x1;x2;. . .  ;xnl  Similar  to  mapcon.  Applies  fn 

♦o  successive  cdr's  of 

x, :x~:..:x  .  Returns  an  nconced 
—1—2  n  - 

list  of  these  values. 

macConc[fn;x1iX2;. . . ;xn]  Similar  to  mapconc  Applies  fn 

to  car’s  of  successive  cdr's 

of  x. ;x0 : . . . ;x  .  Returns  an 
—1  ’—2  — n 

nconced  list  of  these  values. 
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SECTION  XII 


VARIABLE  BINDINGS  AND  PUSHDOWN  LIST  FUNCTIONS 

A  number  of  schemes  have  been  used  in  different  versions  of  LISP 
for  storing  the  values  of  variables.  These  include: 

1.  Storing  values  on  an  association  list  paired  with  the 
variable  names. 

2.  Storing  values  on  the  property  list  of  the  atom  which  is 
the  name  of  the  variable. 

3.  Storing  values  in  a  special  value  cell  associated  with 
the  atom  name,  putting  old  values  on  the  pushdown  list, 
and  restoring  these  values  when  exiting  from  a  function. 

4.  Storing  values  on  the  pushdown  list. 

The  first  three  schemes  all  have  the  property  that  values  are 
scattered  throughout  list  structure  space,  and,  in  general,  in  a 
paging  environment  would  require  references  to  many  pages  to  deter¬ 
mine  the  value  of  a  variable.  This  would  be  very  undesirable  ir. 
our  system.  In  order  to  avoia  this  scattering,  and  possible  ex¬ 
cessive  drum  references,  we  utilize  a  variation  on  the  fourth 
standard  scheme,  usually  only  used  for  transmitting  values  of 
arguments  to  compiled  functions;  that  is,  we  place  these  values 
on  the  pushdown  list.  But  sincf'  we  use  an  interpreter  as  well  as 
a  compiler,  the  variable  names  must  be  kept.  The  pushdown  list 
thus  contains  pairs,  each  consisting  of  a  variable  name  and  its 


value.  The  interpreter  need  only  search  down  the  pushdown  list 
.'or  the  binding  (value)  of  a  variable. 

One  advantage  of  this  scheme  is  that  the  current  top  of  the 
pushdown  stack  is  usually  in  core,  and  thus,  drum  references  are 
rarely  required.  Free  variables  work  automatically  in  a  way 
similar  to  the  association  list  scheme. 

An  additional  advantage  of  this  scheme  is  that  it  is  completely 
compatible  with  compiled  functions  which  pick  up  their  arguments 
on  the  pushdown  list  from  known  positions,  instead  of  doing  a 
search.  To  keep  complete  compatibility,  our  compiled  functions 
put  the  names  of  their  arguments  on  the  pushdown  list,  although 
they  do  not  use  them  to  reference  variables.  Thus,  free  variables 
can  be  used  between  compiled  and  interpreted  functions  with  no 
special  declarations  necessary.  The  names  or.  the  pushdown  list 
are  also  very  useful  in  debugging,  for  they  provide  a  complete 
symbolic  backtrace  in  case  of  error.  Thus,  this  technique,  for 
a  small  extra  overhead,  minimizes  drum  references,  provides 
symbolic  debugging  information,  and  allows  completely  free  mixing 
of  compiled  and  interpreted  routines. 

There  are  three  pushdown  lists  used  in  BBN  9^0  LISP:  the  first 
is  called  the  parameter  pushdown  list,  and  contains  pairs  of 
variable  names  and  values,  and  temporary  storage  of  pointers; 
the  secend  is  a  number  stack  for  temporary  storage  of  unboxed 
numbers;  the  third  is  called  the  control  pushdown  list,  and  con¬ 
tains  function  returns  and  other  control  information. 

The  following  functions  allow  tn.e  to  interrogate  these  pushdown 
lists  from  inside  another  function.  The  functions,  nthfnback. 
evalv,  setv,  variables ,  and  rename  take  an  argument  n  which,  if 
positive,  ir  the  number  of  function  calls  which  have  been  made  - 
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essentially  the  depth  of  nesting  of  functions  from  the  top  level. 
If  n  is  negative,  it  references  back  from  the  current  call  level. 
The  function  nthfn  returns  as  a  value  a  positive  number  which  is 
the  number  of  call  levels  from  the  top  (consistent  with  that 
needed  by  nthfnback,  etc.).  The  argument  n  to  nthfn  (n>o)  is 
interpreted  as  the  nth  preceding  occurrence  (i.e.  counting  back) 
of  the  function  named. 

nthfnback[n]  Returns  the  name  of  function  called 

at  call  level  (position)  n 

nthfn[fn;n]  Returns  the  position  (number  of 

call  levels  from  top)  of  the  nth 
occurrence  back  of  function  named 
fn. 

evalv[var;n]  Returns  the  value  of  variable  var 

evaluated  starting  at  pushdown  list 
position  n 

setv[var;  n;  val]  Sets  the  value  of  variable  var 

starting  at  pushdown  position  n 
to  value  val 

variables[n]  Returns  list  of  variable  names  on 

pushdown  list  at  pushdown  position 
n 

rename[old;  n;  new]  The  variable  named  old  at  level  n 

will  be  renamed  new.  The  push-list 
cell  containing  the  variable  name 
is  changed. 


•  m I 


retfrom[n;v]  Returns  from  the  function  at 

position  n,  with  value  v.  Thus 
an  error[]  under  a  nlseto  is 
equivalent  to  a 
retfrom[nthfn[nlsetq;l] ;NIL], 


backtrace[n;m]  Prints  out  the  untrace  normally 

associated  with  errors,  starting 
at  position  n,  and  going  back 
to  position  m  (i,e.  n>m).  If 
n«NIL;  it  is  assumed  equal  to 
current  position;  if  m«NIL;  it 
is  assumed  equal  to  0. 
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SECTION  XIII 


ARITHMETIC  FUNCTIONS 


Integer  Arithmetic 


The  following  functions  all  work  on  integers.  When  given  floating 
point  numbers  as  arguments,  these  arguments  are  fixed  (converted 
to  integers)  before  any  operation  is  performed.  Most  of  these 
functions  are  compiled  as  open  code. 

plus[x1;x2; . . . ;xn]  Returns  an  integer  xi+x2+,,,+xn 

minus [x]  -  x 

difference^  ;y]  This  function  has  for  its  value 

the  numeric  difference  between  its 
arguments . 


addl[x] 


x  -r  1 


subl[x]  x  -  1 

times[x1;x2; . . . ;xn]  Returnsan  integer  equal  to  the 

product  of  x1>X2>,,,-n 


quotient[x;y ] 


Greatest  integer  in  quotient  x/y 


remainder  [x;y] 

divide[x;y ] 

numberp[x] 

greaterp[x;y ] 
lessp[x;y] 
zerop[x] 
minusp[x] 
logand[x; . . . ;z] 

logor[x ; . . . ;z] 

logxor[x1; . . . ;xn] 


This  function  computes  the  number 
theoretic  remainder  for  fixed- 
point  numbers. 

This  function  yields  a  dotted  pair 
whose  first  member  is  quotient[x;y ] 
and  whose  second  member  is 
remainder[x;y ]. 

T  if  x  is  a  number;  NIL  otherwise. 
This  function  works  for  floating 
point  numbers  as  well  as  integers. 

T  if  x>y;  NIL  otherwise 

T  if  x<y;  NIL  otherwise 

T  if  .*  is  zero;  NIL  otherwise 

T  if  x  is  negative;  NIL  otherwise 

This  function  takes  the  logical 
and  of  all  of  its  argument,  and  re¬ 
turn  this  value  as  an  integer. 

This  function  takes  the  logical 
or  of  all  of  its  arguments,  and 
return  this  value  as  an  integer. 

Logical  exclusive  or  of  x^...,^ 
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lsh[n:s] 


Performs  an  arithmetic  left 
shift  of  s»o  on  n.  Equivalent 
to  n  *  s. 

rsh[n;s]  Performs  an  arithmetic  shift  of 

s^o  on  n.  Equivalent  to  n  *  2“s. 

abs£*]  Returns  absolute  value  of  x. 
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Floating  Point  arithmetic 


The  floating  point  arithmetic  functions  available  in  BBN  LISP  are 
fplus ,  fmlnus ,  ftimes,  fquotlent ,  and  fgtp .  They  will  accept 
mixed  arguments,  i.e.  integer  or  floating  point.  Just  as  the 
integer-type  functions  fix  any  floating  arguments  before  perfor¬ 
ming  their  computation,  the  floating-type  functions  float 
any  fixed  arguments  before  performing  a  computation.  Thus  the 
result  of  a  floating  point  function  is  guaranteed  to  be  a  floating 
point  number. 

The  functions  specifically  related  to  floating  £oint  are: 

fgtp[xiy]  Floating  greaterp ;  compares  by 

subtraction 

fix[x]  Returns  integer  part  of  x 

float [x]  Produces  floating  number 

floatp[x]  Returns  T  if  x  is  a  floating 

point  number,  NIL  otherwise 

fminus[x]  Negative  of  x 

fltfmtCx]  Output  format  control;  x  is 

defined  as  the  time-sharing  system 
formatting  of  floating  point  output 

fplus[x^;x2#. . .  ;xn]  Returns  the  sum  of  its  arguments 
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fquotient[x;y  ] 


Returns  x/y 


ft  ^ ?r[x^;x2; . . .  ;xn]  Product  of  its  arguments 

^■ual  and  w111  compare  two  floating  point  numbers  for  equality, 
and  will  float  an  integer  to  compare  it  to  a  floating  point  number. 

when  compiled  is  an  open  24  bit  compare  which  usually  won't 
work  for  arithmetic  comparisons.  Equal  uses  eqp. 
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SECTION  XIV 


INPUT/CUTPUT  FUNCTIONS 
Opening  and  Closing  Files 

DBN  94)0  LISP  1.69  allows  the  user  to  have  any  r  'mber  of  files  open 
at  a  given  time.  Restrictions  In  the  time-sharii'g  system  currently 
limit  this  to  a  maximum  of  2,  however.  A  f!  «  is  identified  by 
its  LISP  File  Name. 

The  three  basic  file  manipulation  operations  are: 
infile[name ;type] 

used  to  open  for  input  the  file  named  name .  which  must  be  of  type 
type  (i.e.,  for  binary,  2,  or  for  symbolic,  3)  if  type 
is  not  NIL.  Its  value  is  the  name  of  the  file  if  it  was  opened 
successfully,  or  NIL  otherwise.  The  standard  input  file  is  set 
to  name .  T  is  the  name  of  the  teletype  as  an  input  (or  output' 
file. 


out file [name ; type] 

opens  for  output  the  file  name ,  which  is  set  to  type  type  if  type 
is  not  NIL,  and  otherwise  to  type  3,  symbolic.  Its  value  is  the 
name  or  NIL  as  for  lnflle .  It  sets  the  standard  output  file  to 
name. 
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clo3ef[x]  Closes  the  named  file.  If  x  is 

NIL,  it  attempts  to  close  the 
standard  input  file  if  other  than 
teletype.  Failing  that,  it  attempts 
to  close  the  standard  output  file 
If  other  than  teletype.  Failing 
either,  it  returns  NIL.  If  i‘ 
closes  any  file,  it  returns  the 
name  of  that  file.  If  it  closes 
either  of  the  standard  files,  it 
resets  that  standard  file  to  tele¬ 
type. 


openp[x]  Returns  NIL  if  x  is  not  an  open 

file,  returns  x  if  x  is  an  open 
file. 

At  any  given  time  one  Input  and  one  output  file  are  selected  as 
primary  (the  exact  meaning  of  this  is  given  below).  Normally 
these  are  both  T  for  teletype  input  and  output.  The  primary 
input  file  may  be  changed  by 

input [name] 

which  sets  name  to  the  primary  input  file.  Its  value  is  the  name 
of  the  old  primary  input  file.  Similarly,  the  primary  output  file 
may  be  sec  with 

output [name ] 
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which  has  the  obvious  effect.  To  read  the  current  setting  of  the 
primary  input  and  output  files 

input [ ] 


and 


outputL ] 
may  be  used. 

Input/Output  Transmission 

Without  exception,  functions  that  actually  read  or  write  on  files 
may  be  given  an  additional  argument  which  is  the  name  of  the  file 
on  which  the  operation  is  to  take  place.  If  the  additional  argu¬ 
ment  is  NIL,  the  primary  file  will  be  used. 

The  following  functions  perform  output: 

feed[n] 

produces  n  carriage  returns  and  line  feeds: 
prinl[a] 

prints  its  argument. 
prin2[a] 

prints  the  expression  a  with  double-quote  marks  inserted  where 
required  frr  it  to  read  back  in  properly;  both  prlnl  and  prin2 
print  lists  as  well  as  atoms.  Neither  print  a  carriage  return 
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upon  termination,  both  have  value  a. 


prin3[a] 


print C  x  3 

spaces  [n] 

terpri[ ] 

If  any  print  function  is  given  an  unboxed  number  n,  it  will  print 
it  as  #n  with  n  in  octal. 

The  print  functions  print „  prinl ,  prln2 ,  and  prln3  are  all  effected 
by  a  level  parameter  set  by 

printlevel[n] 

The  variable  n»0  controls  the  number  of  unpaired  left  parentheses 
which  will  be  printed  before  any  list  will  be  printed  as  &. 

Suppose  x  «•  (A  (B  C  (D  (E  P)  G)  H '  K) 

Then  if  n  *  2,  print[x]  would  print 

(A  (B  C  &  H)  K) 


Prints  a  using  double  quotes  for 
separation  and  break  characters 
specified  by  setbrk  and  setsepr 
as  described  under  ratom 

Prints  the  S-expression  x; 
uses  prin2 ;  its  value  is  x 

Produces  n  spaces;  its  value  is 
NIL 

Produces  a  carriage  return  and  line 
feed;  its  value  is  NIL 
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and  if  n  ■  3, 


(A  C  (D  &  G)  H)  K) 
and  if  n  ■  0,  it  prints  as  Just 
& 

The  value  of  printlevel[n]  is  the  old  parameter  setting;. 

In  order  to  change  the  level  dynamically,  while  the  system  is 
printing  at  you,  you  can  type  control-P  followed  by  a  number,  i.e. 
a  string  of  digits^  followed  by  a  period.  The  print  level  will 
immediately  be  set  to  this  number  for  this  printout.  If  the  print 
routine  is  currently  deeper  than  the  new  level  all  unfinished  list 
above  that  level  will  be  terminated  by  " — )".  Thus,  if  a  circular 
or  long  list  of  atoms,  is  being  printed  out,  typing  in 

PC0. 

will  cause  the  list  to  be  terminated.  After  this  printout,  th^ 
level  will  be  returned  to  its  previous  setting.  Only  prlntlevel 
(not  Pc)  changes  the  print  level  permanently. 

characterfn]  This  function  outputs  on  the  tele¬ 

type  a  single  character  with  octal 
ascii  representation  (code)  n.  n 
must  be  a  number. 
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Input  Functions 


read[  ] 


rdflx[x] 


ratom[  ] 


Reads  one  S-expression  from  the 
current  file 

If  x  is  NIL  this  function  will  try 
to  read  one  S-expression  with 
read[];  if  no  error  occurred  in 
reading,  it  will  return  with  list 
of  the  S-expression  that  was  read. 
If  an  error  occurs  in  reading,  it 
returns  with  NIL.  If  x  is  not  NIL, 
it  will  attempt  to  read  an  S-ex¬ 
pression  and  keep  attempting  to 
read  it  until  it  gets  one  without 
an  error;  each  time  it  tries  to 
read  an  S-expression  and  gets  an 
error,  it  will  print  out  x.  In 
this  case  it  returns  with  the  S- 
expression  itself  (not  list  of  the 
S-expression) . 

Reads  in  one  atom  from  the  standard 
file.  Separation  of  atoms  is 
defined  by  the  functions  setsepr 
and  setbrk. 


ratoms[a]  Calls  ratom  repeatedly  until  atom  a 

is  read.  Returns  a  list  of  atoms 
read  not  including  a. 
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setseprfx] 


setbrk[x] 


setseprclx] 


setbrkc[x] 


Arguments  should  be  octal  numbers  , 
e.g.,  155q  for  carriage  return. 

Characters  defined  by  setbrk  will 
delimit  atoms  and  be  returned  as 
senarate  atoms  themselves.  Charac¬ 
ters  defined  by  setsepr  will  not  be 
returned  and  will  serve  only  to 
separate  atoms.  For  example,  to 
make  ratom  read  in  ordinary  format , 
space  (Oq),  comma  (l^q),  and 
carriage  return  (155d)  are  separa¬ 
tion  characters,  and  left  naren  (ICq), 
right  paren  < 1 Iq ) ,  and  period  (l6q) 
are  break  characters.  Thus 

setsepr[On  lAq  155n ] 
setbr'.<[10q  11a  l6nj 

would  set  up  these  characteristics. 
The  value  of  setsepr  and  of  setbrk 
is  NIL.  Use  chcon  to  find  numeric 
codes  for  characters.  The  tables 
are  initially  set  to  this  standard 
LISP  set  of  break  and  separator 
characters . 

Same  as  setsepr  e  <cept  that  x  is  a 
list  of  characters. 

Same  as  setbrk  except  that  x  is  a 
list  of  characters. 


ratest [x  ] 


Performs  two  functions  depending 
on  setting  of  x. 


If  x  =  T  ratest  returns  indicator 
which  is: 

T  if  a  separator  was  encountered 
immediately  pric-  to  last  atom 
read  by  ratom. 


NIL  if  there  was  no  separator 
between  last  two  atoms  returned 
by  ratom. 


If  x  =  NIL  it  returns  an  indicator 
which  is: 

T  if  last  atom  returned  by 
ratom  was  a  break  character. 

readc[]  Reads  the  next  character.  Not 

affected  by  setsepr  and  setbrk . 

Input/Output  Control  Function^ 

These  functions  oerform  a  variety  of  operations  on  the  state  of 
files.  Those  marked  with  *  do  not  take  the  optional  extra  argu¬ 
ment  to  indicate  a  file. 

*  clearbuf[]  Clears  the  input  buffer  of  the  file 

(not  particularly  useful  for  any 
file  other  than  the  teletype) 
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--  ^  » 


*  radix[n; i] 

*  control[JJ 

J  *  T 

J  -  NIL 
J  -  0 

J  -  1 

*  linelength[n] 

*  position[] 


Sets  output  radix  to  n  and  sign 
indicator  to  i.  If  i  is  T, 
negative  numbers  will  print  as  sign 
and  23  bit  value  (normal).  If  i_ 
is  NIL,  all  numbers  print  as  24  bit 
unsigned  integers  Returns  previous 
setting. 

Sets  modes  for  reading  with  ratom 
as  follows: 

Eliminates  LISP'S  normal  line 
buffering  (and  also  eliminates 
automatic  detection  of  control-A 
and  control-Q  as  line-editing 
characters  on  the  TTY). 

Restores  line  buffering  (normal). 

Eliminates  the  echo  of  the  character 
being  deleted  by  control  -A. 

Restores  the  echo  (normal). 

Sets  the  length  of  the  print  line 
for  all  files.  The  value  is  the 
former  setting  of  the  line  length. 

Gives  the  character  position  on  the 
print  line.  No  guarantees  are  made 
about  its  meaningfulness  if  output 
is  being  done  intermittently  to  more 
than  one  file. 


*  readp[] 


Special  Functions 
sysout[name] 


syslnfname ] 


rbin[x] 


Gives  T  If  there  Is  something  In 
the  Input  buffer  (either  the  TSS 
input  buffer  or  LISP'S  line  buffer) 
and  MIL  otherwise. 


Dumps  ‘-he  entire  state  of  LISP  on 
the  file  named.  This  name  should 
not  specify  a  drum  file,  since  mc.e 
than  38K  of  information  (the  maxi¬ 
mum  for  a  sequential  drum  file) 
will  always  be  written.  When  the 
LISP  system  is  reassembled,  old 
sysout  files  are  no  longer  readable. 

Restores  the  state  of  LISP  from  a 
sysout  file.  Sysln  may  only  be 
done  once  after  entering  LISP.  If 
it  returns  NIL.,  the  file  was  not 
found,  or  was  no  longer  a  valid 
sysout  file.  Sysln  will  return  T 
if  it  was  successful. 

Reads  one  word  from  x,  the  specified 
file.  This  function  returns  the 
word  as  a  number. 


wbin[w ; x  ] 


Writes  one  word,  w,  on  file  speci¬ 
fied  by  x.  W  must  be  a  number. 


A 

«.r-r~  V 


Piles  opened  for  binary  1-0  should  be  closed  by  closef  in  the 
usual  way , 

Symbolic  File  Input 

load[x;p]  load  is  a  function  which  reads 

successive  S-expressions  from  file 
x  and  evaluates  each  as  it  is  read. 
If  p  =  T,  then  load  prints  the  value; 
otherwise  it  does  not.  load 
continues  reading  S-expressions  and 
evaluating  them,  until  it  reads  the 
single  atom  STOP  followed  by  a 
carriage  return,  at  which  point  it 
returns  the  value  NIL.  Using  load 
is  the  standard  way  of  getting 

f'ON.M  ‘ 


•  ■Ymbt  i  ' 


v 


prettydef  [fns  ;file;vars J  This  function  is  used  for  the 

creation  of  files  containing  sys¬ 
tems  of  functions. 

The  arguments  are  interpreted  as  follows: 

fns  (first  argument)  If  a  list,  it  is  treated  as  a  list 

of  function  names.  If  fns  is  an 
atom,  it  should  have  as  a  binding 
the  list  of  functions  for  prettydef . 
The  functions  on  the  list  are 
prottyprlnted  surrounded  by  a 
(DEFINEQ  ...)  so  that  they  can  be 
loaded  with  load.  In  addition,  a 
SETQO  will  be  written  which  saves 
the  list  of  functions  on  the  named 
atom,  an.  a  PRINT  will  be  written 
which  informs  the  user  of  the  named 
atom  when  the  flit  is  subsequently 
loaded. 

fxle  (second  argument)  The  name  of  the  file  on  which  the 

output  is  to  be  written.  The 
following  options  exist: 
file=NIL 

The  standard  output  file  is 
used  as  determined  by  the 
last  setting  of  output . 
fi le=atom 

The  file  atom  is  opened  if  not 
already  open,  and  becomes 
the  standard  output  file. 
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4* 


file-list 

Car  of  the  list  is  assumed 
to  be  the  file  name  and  is 
opened  if  not  already  open. 
The  standard  output  file  is 
not  changed  in  this  case. 

vars  (third  argument)  This  option  is  used  wnere  there 

are  a  number  of  atoms  having  top 
level  bindings  which  the  user 
wishes  to  save  on  the  output  file. 
The  following  options  exist: 

If  vars  is  an  atom,  this  atom  is 
evaluated  and  should  yield  a  list 
of  atoms.  For  each  atom  in  this 
list,  a  SETQQ  will  be  written  which 
will  restore  the  top  level  binding 
to  the  atom  when  the  file  is  loaded. 
In  addition,  a  SETQQ  and  PRINT  are 
written  which  save  and  print  vars 
as  described  above  for  fns .  If 
the  list  contains  STOP  as  Its  last 
element,  endflle  will  be  called  on 
the  specified  file,  closing  it  as 
described  above. 

If  vars  is  a  list,  the  list  is 
handled  as  abo^'e,  except  that  the 
SETQQ  and  PRINT  saving  the  list 
itself  are  not  written. 
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As  an  additional  option,  if  DATE  is  bound,  "THIS  FILE  WRITTEN  ON 
date"  will  be  printed  when  the  file  is  loaded. 


Examples : 

PRETTYDEF( (F001  F002)  /F00/) 

The  iile  /FOO/  is  now  open,  regardless  of  whether  it  was  open 
before.  Furthermore,  /FOO/  is  the  new  output  file. 

PRETTYDEr ( (FOO 3  F004)  (/FIE/)) 

The  file  /FIE/  is  opened,  if  necessary,  and  F003  and  FOO1!  are 
written  on  it.  /'FIE/  is  not  closed.  /FOO/  is  still  the  output 
file. 


PRETTYDEF((F005  F006)) 

FOO 5  and  F006  are  written  on  /FOO/ 

PRETTYDEF((FG07  F008)  /FIE/  (STOP)) 

F007  and  F008  are  written  on  /FIE/  which  is  closed  with  a 
STOP  at  the  end.  The  output  file  is  now  the  teletype. 

SET(F00(F001  FOO 2  F003)) 

PRETTYDEF(FOO  /FOO/) 

F001,  F002,  F003  are  written  on  /FOO/.  Also  written  on  the 
file  are  (SETQQ  FOO  (F001  F002  F003)) 
and 

(PRINT  (QUOTE  FOO)). 
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SET  (POOVAR  (ZOT  MUMBLE  STOP)) 
SET  (ZOT  T) 

SET (MUMBLE  NIL)) 

PRETTYDEF ( POO  /FUM/  POOVAR) 


The  following  are  written  on  /FUM/:  definitions  of 


FOOl,  F002,  and  F003; 

( SETQQ  FOO  (FOOl  F002  F003)): 

(SETQQ  FOOVAR  (ZOT  MUMBLE  STOP));  (SETQQ  ZOT); 

(SETQQ  MUMBLE  NIL);  (PRINT  (QUOTE  FOO)); 

(PRINT  (QUOTE  FOOVAR));  and  STOP. 

The  file  is  closed. 

As  you  might  surmise,  the  most  convenient  way  to  use  prettydef  is 
as  follows:  set  a  variable  to  the  list  of  the  functions  desired 
in  a  particular  file,  say  FOO,  and  another  variable  to  a  list  of 

variables  to  be  set  in  that  file,  if  any;  prettydef  will  do  the 
rest.  Then  if  you  do 


LOAD (/FUM/) 
you  will  see 

THIS  PILE  WAS  CREATED  ON  4-06  (If  you  had  a, ;  DATE) 
FOO 

FOOVAR 

STOP 

and  the  file  will  be  loaded. 
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clock[n] 


for  n*0  value  of  time  of  day 

clock,  i.e.,  number  of 
seconds  since  midnight 

for  n*l  time  of  day  user  logged  in 

for  n*2  number  of  seconds  of  com¬ 
pute  time  since  user 
logged  in 

for  n*3  time  spent  in  garbage 
collections 

time[x;n;g]  Time  executes  the  computation  x, 

n  number  of  times,  and  prints  out 
the  number  of  conses ,  total  time/n 
if  nj*l  and  computation  time  per 
iteration.  Garbage  collection 
time  is  not  included,  i.e.,  it  is 
subtracted  out.  If  n  is  NIL,  it  is 
set  to  1.  If  g  Is  T,  garbage  col¬ 
lection  time  is  also  printed. 

Example: 

TIME  ((CONS  NIL  NIL)  1000  T) 

GARBAGE  COLLECTION 
2458  CELLS 
1  CONSES 

12/1000*0. 12000E-01  SECONDS 
GARBAGE  COLLECTION  TIME:  23  SECONDS 
(NIL) 
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TIKE  ( (PRETTYDEP  (QUOTE  (POO)))) 
0  CONSES 
9.0  SECONDS 
(POO) 
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SECTION  XV 


ERROR  HANDLING  AND  DEBUGGING  FUNCTIONS 


Error  Handlim 


Errors  in  BBN  LISP  are  dichotomised  into  two  classes:  H  errors 
for  which  the  user  can  provide  Help  on  the  spot;  and  H  errors, 
for  which  no  help  is  possible.  H  errors  in  the  LISP  system 
normally  cause  a  trao  to  a  routine  which  prints  an  error  message 
and  unwinds  the  pushdown  list.  While  unwinding  the  pushdown  list, 
LISP  prints  the  functions  which  have  been  entered,  and  their  argu¬ 
ments.  The  most  recently  entered  function  is  “Tinted  first,  etc. 
until  the  top  level  evalquote  if  reached.  This  printout  can  be 
terminated  by  pressing  RUBOUT;  this  will  return  you  to  the  LISP 
executive.  See  prlntlevel  for  a  discussion  of  modifying  the 
printout  without  terminating  it.  The  function 


error[x] 


induces  an  H  error,  printing  a 
message  x 


An  IT  error  can  be  induced  from  the  console  by  pressing  the  RUBOUT. 


To  prevent  ff  errors  from  stopping  all  computation  by  unwinding  to 
the  top  level,  the  following  functions  can  be  used: 
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errorset  [form;  flag]  This  function  calls  eval  with  the 

value  ol  form.  If  no  error  occurs 
in  evaluation,  it  returns  with  a 
list  containing  one  element,  the 
value  of  eval [form].  If  an  error 
was  encountered  in  the  evaluation, 
it  returns  NIL.  Note  that  NIL  can 
only  be  returned  if  there  was  an 
error.  A  value  NIL  is  returned  as 
(NIL).  The  argument  flag  controls 
the  printing  of  error  messages.  If 
flag»T,  the  error  message  is  printed; 
if  flag*NIL  it  is  not. 

On  an  error  the  pushdown  list  is  unwound  to  the  errorset,  but  no 
further.  Printing  the  untrace  of  functions  and  arguments  on  un¬ 
winding  to  an  errorset  is  controlled  by  esgag.  If  an  error  was 
induced  by  a  RUBOUT,  a  second  RUBOUT  seen  by  LISP  within  3  seconds 
will  cause  an  immediate  untrace  past  all  errorsets. 

Sets  the  unwinding  flag  for  error- 
set  to  g,  and  returns  old  value. 

If  g-T  an  untrace  will  be  printed 
on  an  unwind  to  an  errorset .  If 
g-NIL  no  untrace  will  be  printed. 
Initially  set  to  NIL. 

An  PEXPR  equivalent  to  errorset, 
with  the  argument  x  quoted,  and 
flag»T. 


esgag[g] 


ersetq[x] 
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nlsetq[x] 


quit [x] 


reset [] 


An  PEXPR  equivalent  to  errorset, 
with  x  quoted,  and  flag«NIL. 

Induces  a  "strong"  error  which 
will  unwind  through  errorsets  to 
the  top  level.  It  prints  the 
error  message  x.  An  untrace  is 
printed. 

Induces  a  "strong"  error  which 
will  immediately  return  you  to 
the  top  level  with  no  untrace. 


There  are  three  types  oi  *  errors  which  will  allow  the  user  to 
fix  the  mistake,  and  let  tne  program  continue.  On  these  errors, 
the  system  will  call  break?. ,  described  below,  through  either  of 
two  functions  interrupt  or  faulteval.  These  Helpable  errors  are 

1)  An  unbound  atom 

This  usually  occurs  when  an  atom  has  been  misspelled  or 
not  set  at  the  top  level,  but  may  also  occur  because  of 
an  error  in  syntax.  When  this  occurs  the  system  will 
print  the  message 

UNBOUND  ATOM  name 

where  name  is  the  unbound  atom,  and 
breakl  will  print 

(name  broken) 

Then  all  the  options  of  breakl  are  available  which  will 
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allow,  for  example,  the  user  to  set  the  atom,  or  return 
a  value  without  setting  it,  editing  the  function  with 
the  error,  etc. 

2)  Undefined  car  of  form 

An  H  error  is  induced,  and  the  system  types 

UNDEFINED  CAR  OF  FORM  atom 

where  atom  is  the  one  for  which  the  error  occurred.  This 
usually  implies  that  the  function  has  not  yet  been 
defined,  or  that  its  name  was  mistyped.  The  user  can 
then  define  the  function,  or  return  a  value  etc.  The 
entire  form  is  bound  in  breakl  to  a  variable  called 
BRKlEXP. 

3.  Undefined  function 

If  in  compiled  code,  a  function  is  called  which  is 
undefined,  the  system  will  print 

UNDEFINED  FUNCTION  function 

and  breakl  will  then  print 

(function  BROKEN) 

where  function  is  the  function  not  defined. 

The  user  may  define  this  function  as  a  LAMBDA  expression 
with  spread  arguments  only,  if  the  function  was  also 
undefined  at  compiled  time.  The  arguments  (up  to  12  of 
them)  are  bound  in  the  interrupt  routine  to 
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ARG1,  ARG2  , .  .  .  , 


ARG12 


and  can  be  examined  in  the  usual  way  in  breakl. 
Inducing  H  errors 


In  addition  to  these  errors  detected  by  the  system,  the  user  may 
induce  an  H  error  by  typing  Hc  (H  with  the  control  button  pressed). 
At  the  next  point  a  function  is  about  to  be  entered,  the  system 
will  type 


DTERRUPTED  BEFORE  function 
and  breakl  will  type 

(function  BROKEN) 

At  this  point  the  user  can  examine  the  status  of  his  computation, 
by  evaluating  variables,  or  exploring  the  pushdown  list  with  the 
appropriate  functions  (as  of  course  can  be  done  in  any  entry  to 
breakl) .  The  arguments  are  again  bound  to 

ARG1,  ARG2 , . . . ,  ARG12 

As  usual,  in  breakl  the  function  call  will  be  continued  if  the 
user  types  OK  or  GO. 

In  all  H  errors,  the  function  or  atom  in  question  will  be  bound  to 
the  variable  FUNCTION.  The  form  which  w'M  be  evaluated  on  an 
EVAL,  GO,  or  OK  is  bound  to  BRK1EXP.  The  number  of  interrupts 
which  have  been  done  before  are  bound  to  the  variable  INTERRUPT. 

If  a  new  H  error  occurs  within  g  cail  levels  of  an  H  breakl,  the 
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interrupt  routine  will  not  be  entered  again;  an  H  error  will  be 
induced,  and  the  user  will  be  back  in  the  earlier  H  interrupt. 

If  a  (00  name )  or  (RETURN  exp )  is  evaluated,  break  1  will  be  left 
immediately  and  quietly,  and  these  functions  executed  in  the  la3t 
interpreted  prog  on  the  Dushdovn  list.  The  user  should  avoid 

redefining  the  functions  faulteval  and  Interrupt  which  are  called 
by  the  system  on  H-errors  1  and  2,  and  H-error  3  and  Hc  respectively. 
To  suppress  all  calls  to  these  functions,  the  user  should  set  the 
free  variable  HELPPLAG  to  NIL. 

Debugging  Functions 

There  are  three  facilities  in  the  system  for  easily  modifying 
function  definitions  to  allow  a  user  to  follow  the  flow  of  control 
and  variable  bindings  in  his  programs.  These  three  facilities 
together  are  called  the  break  package.  All  three  redefine  functions 
in  terms  of  a  system  function,  breakl ,  described  below.  Trace 
modifies  a  definition  of  a  function  fn  so  that  whenever  fn  is 
called,  its  arguments  (or  some  other  values  specified  by  the  user) 
are  printed.  When  the  value  of  fn  is  found  it  is  printed  also. 

Break  modifies  the  definition  of  fn  so  that  if  a  break  condition 
(defined  by  the  user)  is  satisfied,  the  process  is  halted  tempo¬ 
rarily  or.  a  call  to  fn.  The  user  can  then  interrogate  the  state 
of  the  machine,  perform  any  computations,  and  continue  or  return 
from  the  call. 

B re akin  allows  the  user  to  insert  a  breakpoint  inside  an  expression 
defining  a  function.  When  the  breakpoint  is  hit,  and  if  a  break 
condition  (defined  by  the  user)  is  satisfied,  a  temporary  halt 
occurs  and  the  user  can  again  investigate  the  state  of  the 
computation. 
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Breakl 


The  basic  '‘unction  of  the  break  package  Js  breakl .  It  allows  the 
user  to  interrogate  the  state  of  the  world  and  to  affect  the 
course  of  the  computation.  Once  a  function  is  broken,  the  user 
may  type  in  forms  to  eval  and,  under  heavy  errorset  protection, 
see  the  value  of  the  computations.  In  addition,  he  has  the 
following  options  that  are  specifically  recognized  by  breakl : 

GO  Releases  the  break  allowing  the 

computation  to  proceed.  When  the 
function  is  evaluated,  its  value 
is  printed. 

OK  Similar  to  GO  except  value  is  not 

printed.  When  the  function  is 
evaluated.  Just  the  function  name 
is  printed. 

ERROR  Causes  an  error  return  from 

breakl  (all  other  errors  will 
maintain  the  break).  This  is 
a  useful  way  to  get  back  to  the 
preceding  break. 

+  Unwinds  to  the  top  -  i.e  it 

evaluates  (RESET). 

RETURN  form  The  value  of  form  is  returned  as 

the  value  of  the  function  broken. 
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..  -  .  -jit  iihA« 


EVAL 


The  computation  proceeds  but  the 
break  is  maintained  so  that  after 
the  function  is  evaluated,  a 
message  to  this  effect  is  printed 
and  the  user  can  interrogate  the 
value  which  is  stored  on  the  afcom 
VALUE . 

Whenever  an  error  occurs  inside  of  a  break,  either  by  RUBCUT,  or 
otherwise,  the  break  is  maintained.  Printing  of  the  function 
value  is  done  (with  a  function  b_pnt0)  to  a  depth  of  4;  therefore 
circularities  through  the  car  are  permissible. 

Break 


Break  is  an  NLAMBDA  which  takes  an;-  number  of  functions  to  be 
broken.  The  functions  may  be  of  type  EXPR,  FEXPR,  SUBR,  etc., 
or  even  undefined.  In  the  case  of  SUBRs,  break  will  require  the 
names  of  the  arguments  and  will  ask  for  them  on  the  teletype. 
Break  will  usually  establish  unconditional  breaks,  i.e.  the 
function  will  always  be  broken.  To  set  up  a  conditional  break, 
one  can  use  a  list  instead  of  a  function  name  in  the  call  to 
break.  The  first  element  of  the  list  should  be  the  name  of  the 
function,  the  second  the  break  condition,  and  the  third  -  if 
present,  a  value  to  be  printed.  Thus 

BREAK (F001  (F002  (GREATERP  N  5)  (CAR  X))) 

(F001  F002 ) 

will  cause  a  break  In  F001  henever  It  Is  called,  and  a  break  In 
FOOS  whenever  It  Is  called  with  N  greater  than  5.  In  the  latter 
case,  (CAR  X)  will  be  printed,  using  bpntg . 
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Iti  general,  if  the  break  condition  (the  second  element  of  the  list) 
evaluates  to  T,  the  function  will  be  broken,  and  the  value  of  the 
third  element  will  be  printed.  If  the  break  condition  evaluates 
to  NIL,  no  break  will  occur.  If  the  break  condition  evaluates 
to  (NIL) ,  then  the  value  of  the  third  element  and  the  value  of  the 
function  will  be  printed,  but  no  break  will  occur.  This  is  effect¬ 
ively  what  happens  in  trace . 

Trace 

Trace  is  also  an  NLAMBDA  which  takes  any  number  of  functions  to  be 
traced.  In  the  normal  mode  of  operation,  the  arguments  of  the 
function  will  be  bpntfled  as  well  as  the  value.  To  print  out  other 
values,  list  the  function,  followed  by  the  values.  Thus 

TRACE (P001  (F002  Y)  (F003  (CADR  X)Z)  (FOOH)) 

(F001  F002  F003  F004) 

will  cause  F001  to  be  traced,  printing  out  all  of  its  arguments, 
F002  to  be  traced  printing  out  Y,  F003  to  be  traced  printing 
(CADR  X)  and  Z,  and  FOGlJ  to  be  traced  printing  out  nothjr-g  except 
the  name  F004.  In  every  case,  the  value  of  the  function  is  also 
printed.  The  features  of  trace  are  exemplified  further  by  the 
following: 

(1)  The  user  can  specify  the  values  of  interest  to  him  in 

addition  to  or  instead  of  t.ie  arguments  of  the  function, 
by  writing  a  list  headed  the  function  followed  by 
the  values  of  interest,  in  place  of  Just  the  function 
name. 
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Example: 


TRACK (POO  (FOOl  Y  (CAR  Z))) 

(FOO  FOOl) 

FOO(A  B  (CD)) 

FOO: 

X“A  • • •  Arguments  of  FOO 

Y«B 

Z«(C  D) 

FOOl: 

Y-A 

(CAR  Z)-NIL 
etc. 

(2)  The  user  can  specify  the  level  to  which  the  arguments, 
or  values,  are  to  be  printed  by  writing  (FN  N  X  Y  Z  ) 

in  the  call  to  trace.  N  Is  taken  to  he  »  If  not  spe^ 
fled  by  this  device. 

(3)  If  an  error  occurs,  or  RUBOUT  Is  pressed,  while  a  function 

Is  being  traced,  a  normal  break  occurs  and,  the  user  can 
proceed  from  that  point. 
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Example: 


TRACE (FACTORIAL) 
FACTORIAL 

FACTORIALS) 

FACTORIAL: 

N-2 


FACTORIAL 

N-l 

FACTORIAL: 

RUBOUT  . . .  RUBOUT  pressed  here 

(FACTORIAL  BROKEN)  ...  break  occurs 
N 
0 

uVAL 

FACTORIAL  EVALUATED 
FACTORIAL 
1 

OK 

FACTORIAL  . . .  exit  from  break 

FACTORIAL  =  1 

FACTORIAL  »  2 
2 
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- 1  III 


Breakin 


The  third  way  to  use  breakl  is  by  .means  of  breakin.  Breakin 
inserts  a  call  to  breakl  inside  of  a  function  definition.  In 
other  words,  although  it  is  impossible  to  break  on  e£,  or  quote , 
because  so  many  functions  use  it,  it  is  possible  to  break  at  the 
point  eq  or  quote  is  called  from  some  other  function. 

Breakin  is  a  function  of  four  arguments:  FN  WHERE,  WHEN,  and  WHAT. 
FN,  WHEN,  and  WHAT  play  the  same  role  as  the  three  arguments  shown 
when  break  is  called  with  a  list  instead  of  an  atom,  i.e.  they 
specify  under  what  conditions  a  break  should  occur,  and  what  is 
to  be  printed.  The  second  argument,  WHERE,  specifies  where  the 
break  is  to  be  inserted. 

WHERE  can  be  either  (BEFORE  ...)  (AFTER  ...)  (AROUND  ...).  "..." 

is  used  by  the  editor's  find  command  to  locate  the  cc- rect  point. 
Thus  (BEFORE  COND  3)  will  break  befoie  the  third  COND,  and 
(AROUND  (SETQ  X  — ))  will  break  around  the  fir.it  place  that  X  Is 
set.  With  the  exception  of  labels  ir:  a  top  level  PROG,  you  cannot 
specify  a  BREAK  AROUND,  BEFORE,  or  AFTER  an  atom,  because  breakin 
automatically  changes  the  atom  to  (atom  — )  when  calling  the 
editor.  Thus,  (BEFORE  COND  3)  is  the  same  as  (BEFORE  (COND  — )  3). 

The  first  time  that  breakin  is  called,  it  copies  the  function 
definition.  Subsequent  times  it  merely  searches  for  the  appro¬ 
priate  location  and  smashes  the  function  definition.  If  the  loca¬ 
tion  is  not  found,  breakin  prints  "?".  If  the  function  Is  a 
machine  code  function  or  undefined,  It  Is  not  possible  to  breakln- 
slde  of  it. 
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Unbreak 


Unbreak  restores  functions  modified  by  break,  trace ,  or  breakin 
to  their  original  state.  It  is  possible  to  do  multiple  breaks , 
traces  or  breakins  in  any  combination  without  first  performing 
unbreak.  Unbreak  is  an  NLAMBDA  which  takes  an  indefinite 
number  of  functions  to  be  restored.  The  variable  ALL  is  set  to  a 
list  of  all  functions  broken.  UnbreaktALL]  will  restore  all  func¬ 
tions  to  their  original  state.  Since  unbreakCPOO]  does  not  remove 
POO  from  the  list  ALL,  a  subsequent  unbreak [ALL]  will  cause 
(POO  NOT  BROKEN)  to  appear  in  the  value  of  unbreak. 
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SECTION  XVI 

THE  COMPILER  AND  LAP 


The  Compiler 


The  compiler  is  a  separate  sysout  file  on  the  system  tape,  usually 
called  COMPILER.  To  use  the  compiler,  copy  your  symbolic  files 
onto  the  drum,  enter  LISP  and  do  a  SYSIN  (COMPILER).  You  can  now 
load  your  functions,  thus  defining  them,  and  then  use  the  function 
compile;  or  you  can  compile  directly  from  drum  using  rcomplle.  The 
latter  is  recommended  to  avoid  a  clash  of  function  names  with  the 
compiler.  The  compiler  compiles  to  a  LAP2  code  which  can  be 
written  out  symbolically  on  the  drum  and  loaded  into  any  standard 
system,  using  loadc. 


compile[x] 


Thip  will  compile  all  the  functions 
on  the  list  x 


example:  COMPILE((FOO  FIE)) 
will  compile  F00  and  FIE  if  they 
are  defined 


rcompile[]  This  will  compile  from  a  drum 

file  whose  name  will  be  requested 
after  the  compset  questions  have 
been  answered 
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When  either  of  these  functions  has  been  called,  they  call  a  func¬ 
tion  compset  which  asks  a  number  of  questions.  Those  that  can  be 


answered  "yes"  or  "no"  can  be  answered  with  YES,  Y,  or  T  for  VES; 
and  NO,  N,  or  NIL  for  NO.  The  questions  are: 

(SETUP  -  TYPEOUT?) 

This  question  should  be  answered  YES  only  if  you  want  to  see  the 
LAP  and  LAP2  code  produced  by  the  compiler  printed  on  the  teletype. 
If  you  answer  1  or  2  you  will  see  the  output  of  pass  1  or  2, 
respectively  of  the  compiler.  Usually  one  should  answer  NO  to 
this  question. 

(STORE  AND  REDEFINE?) 

This  question  should  be  usually  answered  NO,  unless  you  want  to 
work  with  your  functions  within  the  compiler  system.  If  you 
answer  YES,  you  will  be  asked  the  question 

(SAVE  EXPRS?) 

If  you  answer  this  YES,  the  exprs  will  be  saved  on  the  property 
list  of  the  function  name.  Otherwise  they  will  be  discarded. 

(NO-SPREAD  NLAMBDAS-) 

If  there  are  any  NLAMBDA’s  with  atomic  argument  lists  called  from 
your  functions  to  be  compiled  which  are  not  defined,  answer  the 
question  with  one  of  the  following: 

S  Means  Same  list  as  now  on  the 

free  variable  NLAMA 
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ADD  ( fn^ ; . . . ;fnk) 


Add  fnj  to  fnR  to  list  saved  on 
NLAMA. 


REMOVE  (fn, ; . . .  ;fn,  )  Remove  functions  from  NLAMA 

a.  K 


EDIT 


The  editor  will  be  called  and 
you  can  edit  the  list  of  functions 


(fn1; . . . ;fnk) 
NIL,  N,  NO 


Set  NLAMA  to  the  list  of  functions 


Set  NLAMA  to  NIL 


Any  other  atom  will  cause  a  question  mark  to  be  printed  and  let 
you  answer  again.  Then  compset  will  ask: 


(SPREAD  NLAMBDAS- ) 


Answer  in  the  same  way.  The  free  variable  used  by  the  compiler 
is  called  NLAMS  this  time. 


(OUTPUT  PILE) 

This  question  is  always  asked.  You  should  usually  provide  the 
name  of  a  drum  file  on  which  you  wish  to  save  the  LAP2  code  gene 
rated.  If  you  answer  T,  TTY  or  TELETYPE,  the  listing  will  be 
typed  out  on  the  teletype.  If  you  answer  N,  NOTHING  or  NIL, 
output  will  not  be  done.  If  the  file  named  is  already  open,  it 
will  continue  to  be  used. 


When  the  compiler  is  operating,  it  will  normally  print  out  the 
name  of  the  function  compiling,  a  list  of  its  bound  variables 
and  a  list  of  its  free  variables.  When  compile  returns,  it  prints 
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its  list  of  the  functions  compiled.  The  value  of  rcompile  is  NIL. 


Wnen  you  have  finished  compiling:  all  the  functions  you  wish  to 
dump  on  one  drum  file,  print  NIL  on  that  file  and  close  the  file 
with  closefCname]. 

The  code  dumped  on  the  file  can  be  loaded  into  any  standard  system 
by  using 

loadctfile ; fl  •] 

where  if  flag*T  the  names  of  the  functions  loaded  will  be  printed. 


Affecting  the  Compiled  Code 

There  are  three  ways  you  can  affect  code  compiled  for  you.  You 
can  make  a  function  fn  compile  open  (as  an  open  LAMBDA  expression) 
by  putting  the  expression  defining  it  (including  the  LAMBDA)  on 
the  property  list  of  fn  after  the  flag  MACRO,  and  adding  fn  to  the 
list  which  is  the  value  of  OPENFNS.  Abs  and  memb  are  functions 
currently  compiled  open.  The  effect  is  the  same  as  if  you  had 
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written  the  LAMBDA  expression  in  place  of  fn  wherever  it  appears 
in  a  function  being  compiled.  This  saves  the  time  necessary  to 
call  a  function  (about  a  millisecond)  at  the  price  of  more 
compiled  code  generated. 

By  putting  on  the  property  list  of  fn  under  the  flag  MACRO  an 
expression  starting  with  an  atom  other  than  LAMBDA,  one  can  obtain 
the  usual  MACRO  feature  of  LISP.  The  atom  which  starts  the  list 
is  bound  to  cdr  of  the  form  in  which  fn  appears.  The  expression 
following  the  atom  is  evaluated,  and  the  results  of  this  evaluation 
are  compiled.  List ,  mapc  and  map  are  compiled  using  this  technique. 
For  example:  list  has  on  its  property  list  the  expression 
(X  (GLIST  X)),  where  glist  is  defined  as 

(LAMBDA(L)  (COND((NULL  L)NIL)  (T  (LIST  (QUOTE  CONS)  (CAR  L) 

(GLIST  (CDR  L) ) ) ) ) ) 

If  the  value  of  the  result  of  this  evaluation  is  the  atom, 
INSTRUCTIONS,  no  code  will  be  generated.  It  is  then  assumed  the 
evaluation  was  done  for  effect  and  the  necessary  code  has  been 
added.  This  is  a  way  of  giving  direct  instructions  to  the  compiler 
if  you  understand  it. 

Finally,  an  expression  following  MACRO  on  the  property  list  can 
start  with  a  list  of  atoms  which  are  dummy  variables  for  a  substi¬ 
tution  MACRO.  Each  atom  is  paired  with  a  corresponding  elt.  ■'nt 
in  the  form  containing  fn.  Then  these  elements  are  substituted 
for  their  paired  atoms  in  the  expression  following  the  list  of 
atoms,  and  this  substituted  expression  is  compiled.  The  functions 

addl ,  subl ,  neq ,  zerop ,  lessp ,  minusp ,  difference ,  ersetq 

and  nlsetq 
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are  all  compiled  onen  using  these  substitution  macros.  For  example, 
on  the  property  list  of  addl  is  the  expression  ((X)(PLUS  X  1)). 

LAP  and  L4?2 


The  compiler  has  two  main  passes.  The  first  compiles  into  a 
fairly  powerful  macro  language  we  calJ  LAP;  and  this  is  expanded 
into  a  simple  assembly  language  called  LAP2.  The  user  can  write 
code  directly  in  LAP  to  be  compiled  for  LISP.  It  can  be  processed 
by  the  function 

lap  [  fn ;  v ;  free ;  m ;  <"  ] 

Where  fn  is  a  function  name;  v  if,  its  list  of  bound  variables; 
free  is  a  list  of  variables  used  free;  m  is  the  maximum  position 
used  on  *~he  pushdown  list;  end  c  is  the  code  to  be  compiled,  ut? 
expects  the  flag  LAPFLG  to  be  set  to  NIL,  T,  1,  or  2  to  determine 
printout  on  none,  all,  first  or  second  pass  code  respectively. 

The  variable  STRF  should  be  T  or  NIL,  to  store  or  not  store  the 
definition.  The  variable  SVFLG  should  have  value  NIL  (T  only  to 
save  expr's)  and  LGFIL  should  be  set  to  th?  name  of  an  open  file 
on  which  the  output  *  s  to  be  placed.  FTYP  should  have  value  EXPR. 

The  code  Is  a  list  of  instructions,  which  are  lists,  and  atoms 
which  are  treated  as  labels.  Instructions  are  lists  with  at  least 
two  elements.  The  fi~st  element,  fn,  can  be  an  op  code,  a  substi¬ 
tution  macro,  a  lambda  macro,  or  a  function  macro.  These  LAP 
macros  are  compleLel.\  separate  from  the  compiler  macros.  In  the 
first  three  cases,  fn  has  on  its  property  list  a  property  OPD  with 
a  value  we  will  call  me.  A  function  macro  is  the  default  case, 
and  a  list  of  code  to  be  used  is  computed  by  applying  fn  to  edr 
of  the  instruction,  and  this  new  list  is  assembled.  Useful  function 
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macros  in  the  system  will  be  described  later. 


If  me  is  a  number,  thenfn  is  an  ODCode  of  the  9*10.  The  codes 
defined  at  the  moment,  with  their  values,  are  listed  at  the  end 
of  this  section. 

Instructions  containing  these  codes  as  first  elements  are  dumped 
in  symbolic  form  and  at  load  time  are  added  to  the  second  of  the 
instruction.  If  the  third  element  is  I,  the  index  bit  is  set  in 
the  instruction. 

The  substitution  macros  are  those  where  me  is  a  list  which  starts 
with  a  list  of  dummy  variables  for  the  macro.  Corresponding  ele¬ 
ments  of  the  instruction  are  substituted  for  the  variables  ^n  the 
macro  which  is  cdr[mc],  and  this  new  list  of  instructions  is  com¬ 
piled,  before  the  next  instruction  on  the  original  coae  is  compiled. 
When  me  starts  with  LAMBDA,  (a  lambda  macro)  similarly  to  the 
default  case,  a  list  of  instructions  is  computed  by  applying  me 
to  edr  of  the  instruction.  The  substitution  and  lambda  macros 
in  the  system  are  listed  at  the  end  of  this  section. 
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The  important  ones  of  this  group  are:  (where  A  indicates  accumulator) 


(LDV  X) 
(STv  X) 
( LDT  N) 

(STT  N) 


(NSTT  N) 

(LQT  X) 

(LDN  N) 

(STN  N) 

( CLL  L  K  U) 


(CLLA  L  K  U) 
(FET) 

(BE  N  B) 

(BNE  N  B) 

(BN  B) 

(BUN  B) 

(BA  B) 

(BN A  B) 

( BI  B) 

( BN1  3) 

(  BtS  B  L) 
(BN'S  B  L) 
(JUMP  B) 


Load  variable  X  into  A 
Stores  A  o  X 

Load  A  from  stack  position  N  (a  stack 
Dosition  is  a  pair  of  9^0  words  n>0) 

Store  A  in  stack  position  _N  and  store  0 
in  variable  slot.  This  is  important  to 
prevent  garbage  collector  foul  ups. 

Store  A  in  stack  position  N,  do  not  store 

0. 

Load  X  quoted  as  a  constant 
Load  an  unboxed  integer  from  position 
Store  an  unboxed  integer  in  position  _N 
Cal]  function  with  K/2  args  ,  and  U/2 
positions  used  up  on  the  pushlist  through 
last  argument  of  function  called 
Calls  a  functional  argument  L  as  above 
Standard  return,  only  one  per  function 
is  usual 

Branch  to  B  if  A=N 

Branch  to  if  A^N 

Branch  to  if  A-NIL 

Br_nch  to  B.  if  At* NIL 

Branch  to  b.  if  A  an  atom 

Branch  to  B  if  A  not  atom 

Branch  tc  B  if  A  a  number 

Branch  to  B  if  A  not  number 

Branch  to  B_  if  A=L  a  quoted  constant 

Branch  to  B  if  A^L  a  quoted  constant 

branch  to  B 
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( CONSCLL  N) 


(CCALL  01 


Calling  sequence  for  cons  of  element  in 
stack  position  N  with  contents  of  A. 
Used  with  either  op-CARCLL  or 

op-CDRCLL 

to  call  car  or  cdr  A. 


The  important  function  macros  are; 


(PRGREP  OP  B) 


This  must  be  used  for  all  instructions 
whose  address  is  a  number  relative  to 
the  beginning  of  the  code  a>'d  therefore 
must  be  relocated  on  loading.  In  com¬ 
puting  ji,  remember  that  LAP  inserts  4 
instructions  at  the  beginning  of  your 
code  for  initialization. 


(BRANCH  OP  B) 


(RELREF  OP  N) 
(LITREF  OP  EXP) 


Must  be  used  for  all  instructions  which 
reference  a  label  (branch  point)  in  the 
code. 

Used  when  N  is  relative  to  current 
location . 

Stores  EXP  in  a  list  of  literals  and 
computes  the  address  of  the  literal  for 
use  in  the  compiled  code.  Used  to  get 
any  literal  quantity  into  the  code. 


(VREF  OP  X) 


Computes  the  position  on  the  stack  of 
the  variable  named  X. 


(STKREF  OP  N) 

For  further  informati 
Compiler"  by  Bob row. 


Computes  the  actual  address  on  stack 
of  position  N. 

on.,  consult  the  document  "An  Annotated  LISP 
Murphy  and  Deutsch  (forthcoming). 
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MACROS  for  the  compiler 


The  following  expression  when  loaded  with  the  compiler  defines 
all  the  MACROS  used  by  the  compiler. 


(DEFLI  ST  C  QUOTE  ( 

(LIST  <X  (GUST  X))) 

CADD1  ((X) 

(PLUS  X  1))) 

?S'JB1  ((X) 

(PLUS  X  -1))) 

(neq  ar  Y) 

(NOT  (EQ  X  Y)))) 

(ZEROP  ((X) 

(eo  x  cm 

(LESS?  (CX  Y) 

(GREATER?  Y  X))) 

(MINUSP  ((X) 

(GREATER P  OX))) 

(DIFFERENCE  ((X  Y) 

(PLUS  X  (MINUS  Y)))) 

(ABS  (LAM3DA  (X) 

(COND 

((GREATERP  0  X) 

(MINUS  X)) 

(T  X)))) 

(ERSETQ  ((X) 

(ERRORSET  (QUOTE  X) 

T>)> 

(MAP  (X  (LIST  (SUBPAIR  (QUOTE  (MAPF  MAPF2)) 
(LIST  (CFNP  (CADR  X>) 

(COND 

( (CDDR  X) 

(CFNP  (CADDR  X)>> 

<T  (QUOTE  CDR) ) ) ) 

(QUOTE  (LAMBDA  (MAPX) 

(PROG  NIL 
LP  (COND 

((NULL. MAPX) 

(RETURN))) 

(MAPF  MAPX> 

(SETQ  MAPX  (MAPF2  MAPX)) 
(GO  LP) 

)))) 

(CAR  X)))) 
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CMAPC  (X  (LIST  (SUBPAIR  (QUOTE  (MAPCF  MAPCF2>> 

(LIST  (CFN?  (CADR  X>> 

(CONO 

(  (.CDDR  X) 

(CFNP  (CAODR  X>>> 

CT  (QUOTE  COR) > ) > 

(QUOTE  ( LAMBuA  (MAPCX) 

(PROG  NIL 
LP  (COND 

((NULL  MAPCX) 

(RETURN))) 

(MAPCF  (CAR  MAPCX)) 

( SETQ  MAPCX  *  1APCF2  MAPCX)) 

(GO  LP) 

)))) 

(CAR  X>>>> 

(MEMB  (LAMBDA  (X  Y) 

(PROG  NIL 

LP  (RETURN  (COND 
((ATOM  Y) 

NIL) 

((EQ  X  (CAR  Y) > 

Y> 

(T  (SETQ  Y  (CDR  Y>> 

(GO  LP)))) 

))) 

(NLSETQ  ((X) 

(ERRORSET  (QUOTE  X) 

NIL))) 

(VAG  (X  (CEXPR  (CAR  X)) 

(COND 

((EQ  (CAADR  CODE) 

(QUOTE  ENBOX) ) 

(RPLACA  (CDR  CODE))) 

(T  (STORE  (QUOTE  (UNBOX))))) 

(QUOTE  INSTRUCTIONS))) 

(LOC  (X  (CEXPR  (CAR  X)) 

(COND 

((EQ  (CAADR  CODE) 

(QUOTE  UNBOX)) 

(RPLACA  (CDR  CODE))) 

(T  (BOX  SP>>> 

(QUOTE  INSTRUCTIONS))) 

(ARG  (X  (CEXPR  (LIST  (QUOTE  VAG) 

(CAR  X))) 

(STORE  (LIST  (QUOTE  VREF) 

(QUOTE  SUB) 

(COND 

(ARGARG) 

(T  (ERROR  (QUOTE  (FUNCTION  *ARG'  NOT  LEGAL)) >))> 


> 

(STORE  (LIST  (QUOTE  ARGN) 
ARGARG)) 

(QUOTE  INSTRUCTIONS))) 

>) (QUOTE  MACRO) > 
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LAP  MACROS 


The  following  expression  when  loaded  with  the  compiler  defines 
the  substitution  and  lambda  macros  for  Lap. 


<DEFLIST<GUOTE< 

CCSP1  <  <LV  LF  LT) 

<LITREF  LDA  LV) 

(LITREF  LDX  LF> 

<LITREF  LDB  LT) 

<PRGREF  VAL  <PLUS  ENTER  PLITORG  l))>) 
<VST1  <<PP  LV  V) 

<LITREF  LDA  PP> 

<LITREF  LD.B  LV) 

<PRGREF  VAL  <PLUS  IPV  PLITORG  V)))) 
CBE  <<N  B) 

<  STKREF  SKE  N) 

<RELREF  BRU  2) 

< JUMP  8))) 

<BNE  <<N  B) 

< STKREF  SKE  N) 

<  JUMP  B))) 

<LDV  < LAMBDA  <S) 

<VREF  < QUOTE  LDA) 

S))) 

<STV  < LAMBDA  <S) 

<VREF  < QUOTE  STA) 

S)>) 

<LDT  v LAMBDA  <S> 

< STKREF  <QU0TE  LDA) 

S>>> 

<STT  < LAMBDA  <S) 

< STKREF  < QUOTE  STA) 

sm 

<NSTT  CLAMBDA  <S) 

< STKREF  (QUOTE  NSTA) 

s> ;  ) 

<LQT  (LAMBDA  <X> 

(LITREF  (QUOTE  LDA) 

X)>) 

(LDN  (LAMBDA  <S) 

(NREF  (QUOTE  LDA) 

S>)) 
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.BMP 


(STN  C LAMBDA  CN> 

CNREF  C QUOTE  STA) 

N>>> 

CCLL  (CL  K  U> 

CLITREF  LDA  U) 

CLITREF  LDB.K) 

CLITREF  CLLX  L)>> 

CCLLA  (CL  K  U> 

CLITREF  LDA  U) 

CLITREF  LDB  K> 

CVREF  CLLXA  L)>> 

(ARGN  CCA) 

CLSH  l) 

CARGSUB  A> 

(ADD  PPPTR) 

CCAXB  0) 

CLDA  0  I) 

CCBX  0))> 

CARGSUB  CLAMBDA  NIL 

CLITREF  (QUOTE  AnD) 

(PLUS  -2  CVREF 1  A) >  > ) > 
CRET  (NIL  CVAL  RETURN))) 

CBN  CCB) 

CSKE  SYSNIL) 

CRELREF  BRU  2) 

(JUMP  B)>> 

(BNN  CCB) 

CSKE  SYSNIL) 

(JUMP  B) > ) 

(BA  CCB) 

CSKG  SYSTAT) 

CRELREF  BRU  2) 

(JUMP  B>>). 

(BNA  CCB) 

CSKG  SYSTAT) 

(JUMP  B>>) 
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S fVAL  unbox>>> 

eE$T  N”» 

(DVD  ((N  X) 

(RSH  23) 

(DIV  N  X))> 

(DIVIDE  (<S> 

(STTN  S) 

(SWAP  0 ) 

(ENBOX  S) 

(STKREF  SXMA  S> 

(ENBOX  S> 

(STKREF  XMA  S> 

(CONSCLL  S))) 

(BI  ((B) 

(SKG  SYSNUM) 

(RELREF  BRU  2) 

(JUMP  B) ) ) 

(BNI  ((B) 

(SKG  SYSNUM) 

(JUMP  B)>) 

(BIS  C(B  L>.. 

(LITREF1  SKE  L) 

(RELREF  BRU  2) 

(JUMP  B))) 

(BNS  ((B  L) 

(LITREF1  SKE  L) 

(JUMP  B))) 

(CONSCLL  ( (N) 

(CAB  0) 

(STKREF  LDA  N) 

(CCALLA((OP)US  C0NSCLL  <TIMES  N  2))>)> 
(VAL  OP) 

(LDX  PPPTR) ) ) 

(CLLX  ((N) 

(Cl  .  £aA!t,  fPLUS  *CLL  N)  )  )  ) 

(CLLXA  ((NX) 

(VAL  (PLUS  XCLL  m  v« \ « 

(SWAP  (NIL  (XAB  0)))  }) 

(JUMP  ((B) 

(mpyC(?nRx)  BRU  CGBS  b>>>> 

(MUL  N  X) 

CLSH  23))) 

)) (QUOTE  OPD) ) 
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OPCODES  currently  defined  for  LAP 


The  following  expression  loaded  with  the  compiler  defines  the 
Opcodes  for  Lap. 


(DEFLIST(QUOTE( 
CLDA  7600000Q) 
CSTA  35000000) 
(NSTA  35000000) 
(LDB  75030000) 
(ST8  36300000) 
(LDX  71000000) 
(STX  37000000) 
<EAX  77003O0Q) 
(XMA  62000000) 
(SXMA  .62000000*) 
(ADD  55000000) 
(ADM  63000000) 
(MIN  61000000) 
(SUB  54000000) 
(MUL  64000000) 
(DIV  65000000) 
(ETR  14000000) 
(MRG  16000000) 
(EOR  17000000) 
(CLA  46000010) 
(C>B  46000020) 
(CAB  46000040) 
(CBA  46000100) 
(XAB  46000140) 


(CAXB  46004400) 
(CBX  46000200) 
(CNA  46010000) 
(BRU  1000000) 
(BRX  4100000Q) 
(BRM  43000000) 
(BRR  51000000) 
(SKE  50000000) 
(SKG  73000000) 

( SKM  70000000) 
(SKA  72000000) 
(SKB  52000000) 
(SKN  53000000) 
(SKR  60000300) 
(RSH  660O000Q) 
(LRSH  66240000) 
(RCY  66200000) 
(LSH  67000300) 
(LCY  67200000) 
(NOP  20000000) 
(EXU  23000000) 
(VAL  00) 

(BIO  576000000) 
(BRS  573000000) 
(CTRL  572000000) 
)) (QUOTE  0PD>) 
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INDEX  TO  FUNCTIONS 


name  of 
function 

abs 

add 

addl 

allocate 

and 

append 

apply 

arg 

argiist 

array 

arrayslze 

assoc 

atom 

attach 

backtrace 

bnnt0 

break 

breakln 

breakl 

car,  cdr,  (etc) 

character 

chcon 

clearbuf 

clock 

closef 


description 


74 

34 

72 

61 

25 

27 

38 

39 
38 
62 
63 
34 
24 

28 
71 

101 

io: 

lu5 

100 

16 

81 

59 

84 

92 

78 
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name  of 
function 

closer 

compile 

cond 

cons 

conscount 

ccnsoage 

control 

cooy 

define 

defineq 

deflist 

difference 

divide 

d re move 

dreverse 

dsubst 

e 

editcom 

editdefault 

edite 

editf 

editp 

editv 

elt 

endfile 

eq 

tqp 

equal 

error 

errorset 


description 
page _ 

61 

107 

19 

17 

18 
17 
85 
29 

36 

37 
33 

72 

73 
29 

29 

30 

38 
53 
53 
53 
53 
53 
53 
63 
87 
2b 
2b 
2b 
9b 
95 
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name  of 
function 

intt  rsection 

lap 

lap  2 

last 

leone 

length 

le3sp 

linelength 

list 

load 

loadc 

loc 

logand 

logor 

logout 

logxor 

lsh 

mac 

mace 

maccar 

maccon 

macconc 

maclist 

map 

mape 

map car 

map con 

mapeone 

maplist 

me  mb 


description 

page 

26 

112 

112 

30 
28 

31 
73 
85 
27 
87 

110 

6l 

73 

73 

6l 

73 

74 
66 
66 
66 
67 
67 
66 

64 

65 
65 
65 
65 
65 
25 
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name  of 

description 

function 

paf?e 

member 

25 

minfs 

60 

minus 

72 

mlnusp 

73 

nargs 

38 

nconc 

27 

neq 

24 

nill 

24 

nlsetq 

96 

not 

25 

nth 

31 

nthfn 

70 

nthfnback 

70 

null 

24 

numberp 

73 

oblist 

60 

openp 

78 

openr 

61 

or 

25 

out file 

77 

output 

78 

pack 

59 

plus 

72 

position 

85 

prettydef 

88 

prettyprint 

67 

print 

80 

print level 

80 

prin? 

79 

prin2 

79 

name  of 
function 

prin3 

prog 

progn 

progl 

P-‘og2 

PT ..  > 

put 

putd 

putdq 

quit 

quote 

quotient 

radj  x 

ratest 

ratom 

ratoms 

rbin 

rcompile 

rdf  lx 

read 

readc 

readp 

reclaim 

remainder 

remove 

remprop 

rename 

reset 

ret  from 

return 


description 

Page _ 

80 

22 

21 

21 

21 

32 

32 

35 

35 

96 

13 

72 

85 
84 
82 
82 

86 
107 

82 

82 

8H 

86 

60 

73 
29 
32 

70 
96 

71 
23 
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name  of 
function 


description 

■  i>agg _ 


'ftTfflMfrji'mwi 


reverse 

29 

rplaca 

18 

rplacd 

18 

rsh 

74 

sassoc 

34 

selectq 

20 

set 

23 

seta 

63 

setarg 

39 

sfjtbrk 

83 

setbrkc 

83 

setq 

23 

setqq 

23 

setsepr 

83 

setseprc 

83 

setv 

70 

spaces 

80 

statistics 

62 

storage 

62 

SUb 11 3 

30 

subpair 

30 

subst 

29 

subl 

72 

sysin 

86 

sysout 

bo 

tconc 

28 

terpri 

80 

tine 

92 

times 

72 

trace 

102 
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name  of 
function 

unbreak 

union 

unoack 

vac 

variables 

wbln 

zerop 


description 

_ B»ge 

106 

26 

59 

61 

70 

86 

73 
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Following  is  a  list,  of  all  atom  3  with  initialized  top 
level  values  in  the  basic  system  and  those  values. 


blank 

space 

tab 

comma 

eqslgn 

xeas 

f 

nil 

period 

pluss 

lpar 

rpar 

slash 

t 

*t* 

qmark 

xdol 

xsqu 

xdqu 

xlbr 

xrbr 

xarr 

uparr 

colon 

xgreater 

xlesser 

xnum 

xper 

xamp 

xat 


space 

space 

tab 


nr 

nil 

• 

+ 

( 

) 

/ 

4» 

U 

t 

? 

$ 

f 

•f 

[ 

3 

4. 

t 


> 

< 

* 

0 

* 

& 
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xsem  ; 

xe  :claim  ! 


xcr 

bkslash 


carriage  return 

\ 
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